Есть готовая программа, которая выводит анимацию в Паскаль(разноцветные круги). С помощью нее нужно сделать анимации: 1. цветные линии из одной точки (использовать SetPencolor(rgb(c,f,d)) 2. Цветные линии, расположенные случайным образом на черном фоне.

Предыдущий
вопрос Следующий
вопрос

Для создания анимации цветных линий из одной точки можно использовать следующий код на языке Паскаль:

uses Graph;
var
gd, gm: SmallInt;
c, f, d: SmallInt;
begin
gd := Detect;
InitGraph(gd, gm, '');
c := 255; // Красный цвет
f := 0; // Зеленый цвет
d := 0; // Синий цвет
while not KeyPressed do
begin
SetColor(rgb(c, f, d));
Line(320, 240, Random(640), Random(480));
delay(100);
end;
CloseGraph;
end.

Для создания анимации цветных линий, расположенных случайным образом на черном фоне, можно модифицировать код следующим образом:

uses Graph;
var
gd, gm: SmallInt;
c, f, d: SmallInt;
begin
gd := Detect;
InitGraph(gd, gm, '');
Randomize;
while not KeyPressed do
begin
c := Random(256);
f := Random(256);
d := Random(256);
SetColor(rgb(c, f, d));
Line(Random(640), Random(480), Random(640), Random(480));
delay(100);
end;
CloseGraph;
end.

Эти программы будут создавать анимацию цветных линий на экране. При каждой итерации цвет линии будет выбираться случайным образом, что создаст интересный эффект. Для остановки анимации нужно будет нажать любую клавишу.