Kod: Zaznacz cały
program spirala;
uses crt,graph;
var t,x,y,a,b:integer;
z:real;
BEGIN
initgraph(a,b,');
t:=100;
repeat
z:=t*PI/180;
x:=round(z*cos(z)+getmaxx div 2);
y:=round(z*sin(z)+getmaxy div 2);
putpixel(x,y,red);
t:=t+4;
delay(1);
delay(3);
until z>=5000;
closegraph;
END.