Uses crt,graph; const k=6; var n,x,y:integer; procedure snow (x0,y0,r,n:integer); const...

Question

Uses crt,graph;
const k=6;
var n,x,y:integer;
procedure snow (x0,y0,r,n:integer);
const t=2*pi/k;
var i,x,y:integer;
begin
for i:=1 to k do
begin
x:=x0+round(r*cos(i*t));
y:=y0-round(r*sin(i*t));
line(x0,y0,x,y);
if n>1 then snow(x,y,r div 3,n-1);
end;
end;
begin
clrscr;
repeat
writeln('Glubina rekursii do 6:');
readln(n);
until n in [1..6];
x:=detect;
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
snow(x,y,100,n);
readkey;
end.
19:06:14
uses crt,graphABC;
const k=6;
var n,x,y:integer;
Пожалуйста, помогите мне исправить программу! Это снежинка в Паскале способом рекурсии!

Answer 1

//Для среды PascalABC
uses graphABC;
const k=6;
var
    n,x,y:integer;
procedure snow (x0,y0,r,n:integer);
 const t=2*pi/k;
 var
     i,x,y:integer;
begin
 for i:=1 to k do
   begin
     x:=x0+round(r*cos(i*t));
     y:=y0-round(r*sin(i*t));
     line(x0,y0,x,y);
     if n>1 then snow(x,y,r div 3,n-1);
   end;
 end;
begin
repeat
 writeln('Glubina rekursii do 6:');
 readln(n);
until n in [1..6];
x:=WindowWidth div 2;
y:=WindowHeight div 2;
snow(x,y,100,n);
end.

Comments

Спасибо большое, но снежинка не рисуется.

---

Вы правильно запустили и ввели входные данные? http://firepic.org/images/2016-01/26/ywtcvsox48vt.png

---

Да не знаю. Я уже запуталась.