Предмет: Информатика,
автор: mariaf
Составьте программу рисования "веера" разноцветных линий выходящих из одной точки. Используйте оператор while или repeat
Приложения:
Ответы
Автор ответа:
0
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.
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.
Интересные вопросы
Предмет: Обществознание,
автор: skirkovartem
Предмет: Информатика,
автор: nastisecret
Предмет: Литература,
автор: prostoRkira
Предмет: Информатика,
автор: Rembo98
Предмет: Алгебра,
автор: Артур13511