В паскале написать программу, рисующую пучок прямых, выходящих из одной точки.

Question

В паскале написать программу, рисующую пучок прямых, выходящих из одной точки.

Answer 1

Uses graphabc;
var
x,y,r,x1,y1,i:integer;
begin
x:=325;
y:=225;
r:=200;
for i:=1 to 360 do 
begin 
Setpencolor(clblack); 
x1:=x+round(r*cos(i*pi/180)); 
y1:=y-round(r*sin(i*pi/180)); 
line(x,y,x1,y1); 
end;
end.



uses graphabc;
var
x,y,r,x1,y1,i:integer;
begin
x:=325;
y:=225;
r:=200;
for i:=1 to 135 do 
begin 
Setpencolor(clblack); 
x1:=x+round(r*cos(i*pi/180)); 
y1:=y-round(r*sin(i*pi/180)); 
line(x,y,x1,y1); 
end;
end.



uses graphabc;
var
x,y,r,x1,y1,i:integer;
begin
x:=100;
y:=50;
r:=200;
for i:=1 to 360 do 
begin 
Setpencolor(clblack); 
x1:=x+round(r*cos(i*pi/180))+200; 
y1:=y-round(r*sin(i*pi/180))+200; 
line(x,y,x1,y1); 
end;
end.