Есть готовая программа, которая выводит анимацию в Паскаль(разноцветные круги). С помощью нее нужно сделать анимации:
1. цветные линии из одной точки
(использовать SetPencolor(rgb(c,f,d))
2. Цветные линии, расположенные случайным образом на черном фоне.
Приложения:
![](https://st.uroker.com/files/175/1758d90d38ede785c4728652d484d2fe.jpg)
Ответы
Ответ дал:
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.
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.
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
6 лет назад