Question

Составьте программу рисования "веера" разноцветных линий выходящих из одной точки. Используйте оператор while или repeat

Answer 1

uses graph;
var x,y,r,x1,y1,i:integer;
begin randomize;
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;
readln end.