?>
/для среды 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. ! что с этой программой не так? нужно нарисовать снежинку рекурсией. программа запускается, а снежинку не рисует!
Ответы