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

Question

Информатика

Ромуля

21 декабря, 07:23

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

+3

Ответы (1)

Знаете ответ на вопрос?

Касиния · 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.