В паскале написать программу, рисующую пучок прямых, выходящих из одной точки.
Answers & Comments
ЛюблюСвойКласс
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.
Answers & Comments
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.