Рисунок через рекурсию

@Aleshh · Регистрация: 15.01.2017

Студворк — интернет-сервис помощи студентам

(Пример, n=4.)

@ZX Spectrum-128 · 23.02.2017, 18:35

Программа рисующая заданное количество квадратов

@Puporev · 23.02.2017, 19:32

Pascal

uses graphABC;
function Square(c,a:integer;ax,ay,bx,by,cx,cy,dx,dy,m:real;n:integer):integer;
begin
if n=0 then Square:=0
else
 begin
  line(round(ax),round(ay),round(bx),round(by));
  line(round(bx),round(by),round(cx),round(cy));
  line(round(cx),round(cy),round(dx),round(dy));
  line(round(dx),round(dy),round(ax),round(ay));
  dec(n);
  Square:=Square(c,a,ax+(bx-ax)*m,ay+(by-ay)*m,bx+(cx-bx)*m,by+(cy-by)*m,
          cx+(dx-cx)*m,cy+(dy-cy)*m,dx+(ax-dx)*m,dy+(ay-dy)*m,m,n);
 end;
end;
var a,c,n:integer;
    ax,bx,cx,dx,ay,by,cy,dy,m:real;
begin
setwindowsize(500,500);
centerwindow;
c:=250;
a:=200;
n:=20;
m:=0.5;
ax:=c-a;ay:=c-a;
bx:=c+a;by:=c-a;
cx:=c+a;cy:=c+a;
dx:=c-a;dy:=c+a;
Square(c,a,ax,ay,bx,by,cx,cy,dx,dy,m,20);
end.

n можно вводить с клавы.

@Aleshh 0 / 0 / 0 Регистрация: 15.01.2017 Сообщений: 84
		1
	Рисунок через рекурсию 23.02.2017, 18:28. Показов 1281. Ответов 2 Метки нет (Все метки) (Пример, n=4.) 0

@ZX Spectrum-128 6806 / 4565 / 4817 Регистрация: 05.06.2014 Сообщений: 22,438
	23.02.2017, 18:35	2
	Программа рисующая заданное количество квадратов 0

Опции темы

Рисунок через рекурсию

Решение