Цитата:
Сообщение от Сабыржан
блииин мне ее скоро показывать...у кого ни будь может есть похожие задачи с решением? буду рад хоть этому..
|
Да ладно, ловите. Пара замечаний:
1. Программа написана на языке Turbo Pascal (Free Pascal). А потому если у Вас АВС, то это не годится.
2. Команду InitGraph конфигурируйте сами, исходя из Ваших путей и драйверов.
3. Программа написана под VGA черный графический экран (640х480).
Код:
USES CRT, Graph;
CONST
N=100;
VAR
X1,Y1,X2,Y2:Array[1..N] of Word;
Clr1,Clr2:Array[1..N] of Byte;
i:Byte;
BEGIN
InitGraph(........);
Randomize;
For i:=1 to N do
begin
X1[i]:=Random(321);
Y1[i]:=Random(241);
Clr1[i]:=Random(8)+1;
PutPixel(X1[i],Y1[i],Clr1[i]);
X2[i]:=Random(321)+320;
Y2[i]:=Random(241)+240;
Clr2[i]:=Random(7)+9;
PutPixel(X2[i],Y2[i],Clr2[i]);
end;
Repeat
Delay(500);
i:=Random(N)+1;
PutPixel(X1[i],Y1[i],0);
X1[i]:=Random(321);
Y1[i]:=Random(241);
Clr1[i]:=Random(8)+1;
PutPixel(X1[i],Y1[i],Clr1[i]);
PutPixel(X2[i],Y2[i],0);
X2[i]:=Random(321)+320;
Y2[i]:=Random(241)+240;
Clr2[i]:=Random(7)+9;
PutPixel(X2[i],Y2[i],Clr2[i]);
Until KeyPressed;
ReadKey;
CloseGraph;
END.