Составьте программу рисования "веера" разноцветных линий выходящих из одной точки. Используйте оператор while или repeat
Answers & Comments
lisaknowsuses graph; var x,y,r,x1,y1,i:integer; beginrandomize; x:=0;initgraph(x,y,''); x:=getmaxX div 2; y:=2*getmaxY div 3; r:=getmaxY div 2; for i:=1 to 180 do begin x1:=x+round(r*cos(i*pi/180)); y1:=y-round(r*sin(i*pi/180)); setcolor(1+random(15)); line(x,y,x1,y1); end; readlnend.
Answers & Comments
var x,y,r,x1,y1,i:integer;
beginrandomize;
x:=0;initgraph(x,y,'');
x:=getmaxX div 2;
y:=2*getmaxY div 3;
r:=getmaxY div 2;
for i:=1 to 180 do begin x1:=x+round(r*cos(i*pi/180));
y1:=y-round(r*sin(i*pi/180));
setcolor(1+random(15)); line(x,y,x1,y1);
end;
readlnend.