С Новым годом! Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.61/18: Рейтинг темы: голосов - 18, средняя оценка - 4.61
0 / 0 / 1
Регистрация: 13.01.2011
Сообщений: 10
1

Графика: ковер Серпинского

23.11.2011, 14:26. Показов 3442. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Прога рисует ковер Серпинского.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
   x1, y1, x2, y2: real;
  n, Code: integer;
implementation
 
{$R *.dfm}
 
procedure serp(x1, y1, x2, y2: real; n: integer);
var
x1n, y1n, x2n, y2n: real;
nr: trect;
begin
if  n > 0  then
begin
x1n:= 2*x1/3+x2 / 3; {kcc}
x2n:= x1/3+2*x2 / 3;
y1n:= 2*y1/3+y2 / 3;
y2n:= y1/3+2*y2 / 3;
nr:=rect(round(x1n),round(y1n),round(x2n),round(y2n));
form1.canvas.fillrect(nr);
serp(x1, y1, x1n, y1n, n-1);
serp(x1n, y1, x2n, y1n, n-1);
serp(x2n, y1, x2, y1n, n-1);
serp(x1, y1n, x1n, y2n, n-1);
serp(x2n, y1n, x2, y2n, n-1);
serp(x1, y2n, x1n, y2, n-1);
serp(x1n, y2n, x2n, y2, n-1);
serp(x2n, y2n, x2, y2, n-1);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
 var
nru: trect;
begin
form1.Refresh;
x1:=10;
y1:=10;
x2:=400;
y2:=400;
val(Edit1.text, n, Code);
form1.canvas.brush.color:= clyellow;
nru:=rect(round(x1),round(y1),round(x2),round(y2));
form1.canvas.fillrect(nru);
form1.canvas.brush.color:= clgreen;
serp(x1, y1, x2, y2, n);
end;
end.
 Комментарий модератора 
Теги кода добавлены модератором. По правилам форума, код должен быть оформлен соответствующими тегами. Для оформления кода Delphi следует выделить этот код и на панели редактирования сообщения нажать кнопку: "DELPHI".
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
23.11.2011, 14:26
Ответы с готовыми решениями:

Фрактальная графика: ковер Серпинского
Помогите написать программу, которая реализует ковер Серпинского на Pascal, используя рекурсивную...

Ковер Серпинского
Есть код using System; using System.Collections.Generic; using System.ComponentModel; using...

Ковер Серпинского
Здравствуйте, ищу готовые решения для СРС. Перечитал многие темы на форуме по opengl, не нашел,...

Квадрат (Ковер) Серпинского
Подскажите,что и где нужно исправить чтоб получалась нормальная рекурсия, как достроить квадрат...

1
0 / 0 / 0
Регистрация: 04.04.2012
Сообщений: 2
07.12.2012, 00:27 2
Спасибо огромное за ваш труд.
0
07.12.2012, 00:27
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
07.12.2012, 00:27
Помогаю со студенческими работами здесь

Отображение в JPanel, Ковер Серпинского
Задание: Надо сделать пошаговое выполнение фрактала ковер Серпинского. Делаю все правильно, но...

Фракталы. Ковер Серпинского. Код не запускается
function z = Serpinsky(Lmax) % функция, возвращающая изображение ковра Серпинского % Lmax —...

Как построить квадрат (ковер) Серпинского
Здравствуйте. Помогите, пожалуйста, построить квадрат Серпинского. Разбирал данный пример. Вот,...

Нарисовать куб, каждая грань которого - ковер Серпинского
Добрый день! Имеется следующая задача: необходимо нарисовать куб, каждая грань которого - ковер...

Ковёр Серпинского: Подобрать координаты, чтобы закрашивались квадраты зелёным цветом
Помогите пожалуйста в предпредпоследней строчке,подобрать правильно координаты чтоб закрашивались...

Построить фрактальный "Ковер Серпинского" n-го порядка
помогите построить фрактальный ковер Серпинского n-ого порядка.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Книги и учебные ресурсы по C#
InfoMaster 08.01.2025
Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .
Что такое NullReferenceEx­­­ception и как исправить?
InfoMaster 08.01.2025
NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .
Что такое Null Pointer Exception (NPE) и как это исправить?
InfoMaster 08.01.2025
Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .
Русский язык в консоли C++
InfoMaster 08.01.2025
При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .
Telegram бот на C#
InfoMaster 08.01.2025
Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .
Использование GraphQL в Go (Golang)
InfoMaster 08.01.2025
Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор?
Alexander-7 08.01.2025
Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .
Как работать с GraphQL на TypeScript
InfoMaster 08.01.2025
Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .
Счётчик на базе сумматоров + регистров и генератора сигналов согласования.
Hrethgir 07.01.2025
Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .
Как перейти с Options API на Composition API в Vue.js
BasicMan 06.01.2025
Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .
Архитектура современных процессоров
inter-admin 06.01.2025
Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .
История создания реляционной модели баз данных, правила Кодда
Programming 06.01.2025
Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru