Скачиваний:
283
Добавлен:
04.03.2014
Размер:
764 б
Скачать
{‘ва®Ёв „ўЁ¦гйЁҐбп Ё§®Ўа. Ќ‹Ћ ­  д®­Ґ §ўс§¤­®Ј® ­ҐЎ }
Program Xa;
Uses Graph, crt;
var Driver, Mode, x, y, r, i:integer;
Begin
R:=40;
x:=r*5;
y:=r*2;
Driver:=Detect;
Initgraph(Driver, Mode, '');
Setcolor(3);
For i:=1 to 600 do
Putpixel(Random(i), Random(i), i);
repeat
Ellipse(x, y, 0, 360, r, (r div 3)+2);
ellipse(x, y-4, 190, 357, r, r div 3);
line(x-17, y-16, x-25, y-22);
line(x+17, y-16, x+25, y-22);
circle(x+25, y-25, 2);
circle(x-25, y-25, 2);
Setfillstyle(1, 3);
Floodfill(x+1, y+4, 3);
Delay(150);
Cleardevice;
for i:=1 to 600 do
Putpixel(random(i), random(i), i);
x:=x+random(10);
y:=y+random(10);
Until(Keypressed);
Closegraph
END.



Соседние файлы в папке LENA