Question

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

Answer 1

program Lines;
uses
  GraphABC;
const
  n=1000000;
var
  x,y,c,i,f,d:integer;
begin
  for i:=1 to n do
  begin
    x:=Random(1000);
    y:=Random(1000);
    c:=Random(250);
    f:=Random(250);
    d:=Random(250);
    SetPenColor(RGB(c,d,f));
    Line(10,10,x,y)
  end
end.

program Lines2;
uses
  GraphABC;
const
  n=1000000;
var
  x1,y1,x2,y2,c,i,f,d:integer;
begin
  Randomize;
  ClearWindow(clBlack);
  for i:=1 to n do
  begin
    x1:=Random(1000);
    y1:=Random(1000);
    x2:=Random(1000);
    y2:=Random(1000);
    c:=Random(250);
    f:=Random(250);
    d:=Random(250);
    SetPenColor(RGB(c,d,f));
    Line(x1,y1,x2,y2);
    Sleep(100)
  end
end.