Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Рекурсия с квадратом [D7]

Страницы: < 1 2
DanilTraum © (2013-06-19 12:00:00)
Всем доброго времени суток, нужно создать программу, которая, при нажатии на кнопку рисует квадрат, в нем четыре квадрата, в левом верхнем еще четыре и так далее до точки...
Сделать нужно с помощью рекурсии, очень нужна помощь!

DanilTraum (2013-06-19 12:45:00) [21]
>>>Начни не с рекурсии, как начнет получаться - переходи к ней.
Тоже думаю, попробуем...

[ВладОшин] (2013-06-19 12:43:00) [22]
procedure TForm1.btn1Click(Sender: TObject);
begin
DrowSqureS(200);
end;

procedure TForm1.DrowSqureS(A: Integer);
begin
if A < 2 then
Exit;
Canvas.Rectangle(0,0,A,A);
A := A div 2;
DrowSqureS(A);
end;

> Jeer © (19.06.13 12:33) [4]
>
> >[ВладОшин] © (19.06.13 12:28) [3]
>
> Вот прилипчивый:)
>
> 1. Купить компьютер.

так и знал.. блин, а микроволновка если есть - не подойдет!?!

брат Птибурдукова (2013-06-19 12:42:00) [23]
А если поверх наристованного узора наложить отсканированный текст, то сразу и решение для http://www.delphimaster.ru/cgi-bin/forum.pl?id=1370989337&n=18
профит! (фрактали точнее)

Jeer (2013-06-19 12:38:00) [24]
Начни не с рекурсии, как начнет получаться - переходи к ней.

DanilTraum (2013-06-19 12:35:00) [25]
Есть этаже программа, только я все делал по заданию пиксельных координат...--->>> похоже, это все на что я способен(((

DanilTraum (2013-06-19 12:33:00) [26]
procedure Quad(x1, y1, x2, y2: real; w: integer; Cv:TCanvas); var x1w, y1w, x2w, y2w: real; begin if w >= 5 then begin x1w:= 2*x1/3+x2 / 3; x2w:= x1/3+2*x2 / 3; y1w:= 2*y1/3+y2 / 3; y2w:= y1/3+2*y2 / 3; Cv.rectangle(round(x1w),round(y1w),round(x2w),round(y2w)); Quad(x1, y1, x1w, y1w, w-1,Cv); Quad(x1w, y1, x2w, y1w, w-1,Cv); Quad(x2w, y1, x2, y1w, w-1,Cv); Quad(x1, y1w, x1w, y2w, w-1,Cv); Quad(x2w, y1w, x2, y2w, w-1,Cv); Quad(x1, y2w, x1w, y2, w-1,Cv); Quad(x1w, y2w, x2w, y2, w-1,Cv); Quad(x2w, y2w, x2, y2, w-1,Cv); end; end; procedure TForm1.Button1Click(Sender: TObject); var x1,y1,x2,y2:integer; begin Image1.Canvas.Rectangle(x1, y1, x2, y2); Quad(x1, y1, x2, y2, 4,Image1.Canvas); end; end.
Вот код, квадраты не получаются...

Jeer (2013-06-19 12:33:00) [27]
>[ВладОшин] © (19.06.13 12:28) [3]

Вот прилипчивый:)

1. Купить компьютер.
2. Установить операционку
3. Используя Блокнот, написать программу, предварительно выучив язык программирования.
4. Найти компилятор для соответствующего языка.
5. Откомпилировать приложение.
6. Запустить приложение.
7. Взять из холодильника чупа-чупсы и, сидя на диване, со знанием дела демонтрировать таким же тушканчикам чудо программерской мысли.

[ВладОшин] (2013-06-19 12:28:00) [28]
>> И где же вопросы?

Как

> создать программу, которая, при нажатии на кнопку рисует
> квадрат, в нем четыре квадрата, в левом верхнем еще четыре
> и так далее до точки...

?

:)

Юрий Зотов (2013-06-19 12:20:00) [29]

> DanilTraum (19.06.13 12:00)
> очень нужна помощь!

И где же вопросы? Как помочь-то, если Вы ничего не спрашиваете?

Медвежонок Пятачок (2013-06-19 12:04:00) [30]
сколько денег выслать в качестве помощи? и главное куда.
сто рублей могу.

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »