Есть готовая программа, которая выводит анимацию в Паскаль(разноцветные круги). С помощью нее нужно сделать анимацию: цветные линии из одной точки
(использовать SetPencolor(rgb(c,f,d))
Program gg;
uses graphabc;
var i,x,x1,y,y1,r,g,b:integer;
begin
SetWindowWidth(1200);
SetWindowheight(800);
x:=WindowWidth div 2;
y:=Windowheight div 2;
for i:=1 to 1000000 do
begin
x1:= random (1200);
y1:= random (800);
r:=random(255);
g:=random(255);
b:=random(255);
setpencolor(rgb(r,g,b));
line(x,y,x1,y1);
sleep(5);
end;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
