Скачиваний:
288
Добавлен:
04.03.2014
Размер:
1.01 Кб
Скачать

uses crt,Graph;
var
gD,gM: Integer;
a,b,c,d:integer;
b1:array[0..50] of integer;
c1:array[0..50] of integer;
x1:array[0..50] of integer;
y1:array[0..50] of integer;
begin randomize;
gD:=Detect;InitGraph(gD,gM,'e:\tp\bgi');
for a:=0 to 50 do x1[a]:=100+random(635);
for a:=0 to 50 do y1[a]:=100+random(345);
for a:=0 to 50 do begin b1[a]:=random(2);c1[a]:=random(2);end;
repeat
for a:=0 to 50 do begin
if x1[a] > 635 then b1[a]:=1;if x1[a] < 5 then b1[a]:=0;
if y1[a] > 345 then c1[a]:=1;if y1[a] < 5 then c1[a]:=0;
if b1[a]=0 then x1[a]:=x1[a]+random(3);if b1[a]=1 then x1[a]:=x1[a]-random(3);
if c1[a]=0 then y1[a]:=y1[a]+random(6);if c1[a]=1 then y1[a]:=y1[a]-random(6);
end;
for a:=0 to 50 do begin
putpixel(x1[a]+1,y1[a],15);putpixel(x1[a]-1,y1[a],15);
putpixel(x1[a],y1[a]+1,15);putpixel(x1[a],y1[a]-1,15);
end;
for a:=0 to 50 do begin
putpixel(x1[a]+1,y1[a],0);putpixel(x1[a]-1,y1[a],0);
putpixel(x1[a],y1[a]+1,0);putpixel(x1[a],y1[a]-1,0);
end;
until d=100;
end.
Соседние файлы в папке Alex