В паскале написать программу, рисующую пучок прямых, выходящих из одной точки.
В паскале написать программу, рисующую пучок прямых, выходящих из одной точки.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы