/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Algorithms/Recursion/ESquares.pas
27 строк
581 B
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
// E-квадраты. Демонстрация рекурсии uses GraphABC; const mw = 2.9; procedure ESquares(n,x,y,w: integer); begin var w1 := round(w/mw); var h := (w-2*w1) div 3; Brush.Color := clRandom; Rectangle(x,y,x+w,y+w); if n>0 then begin Sleep(1); ESquares(n-1,x+h,y+h,w1); ESquares(n-1,x+w-h-w1,y+h,w1); ESquares(n-1,x+h,y+w-h-w1,w1); ESquares(n-1,x+w-h-w1,y+w-h-w1,w1); end; end; begin Window.Title := 'Рекурсия: E-квадраты'; SetWindowSize(750,530); Pen.Color := clWhite; ESquares(4,125,18,490); end.