Скачиваний:
288
Добавлен:
04.03.2014
Размер:
917 б
Скачать
program dron;
uses graph, crt;
var gd,gm,d,f, w:integer;

procedure sliv(x,y,cp,cg:integer);
begin
setfillstyle(1,cp);
floodfill(x,y,cg);
end;

begin
gd:=detect;
initgraph(gd,gm,'d:\bp7\bgi');
sliv(50,50,2,3);
setcolor(0);
line(0,220,640,220);
sliv(50,50,6,0);
line(200,450,250,450);
line(200,450,185,420);
line(250,450,265,420);
line(185,420,265,420);
line(185,420,200,405);
line(265,420,250,405);
line(200,405,250,405);
line(370,250,450,250);
line(450,250,470,270);
line(265,420,470,270);
line(450,250,250,405);
line(470,270,450,310);
line(450,310,250,450);
line(370,250,200,405);
sliv(205,445,13,0);
sliv(265,435,13,0);
sliv(205,415,15,0);
sliv(265,415,15,0);
sliv(245,400,5,0); w:=20;
repeat;
circle(w+15, 40, 25);
sliv(w+15, 40, 10, 0);
line(w+15, 65, w+30, 95);
setfillstyle(1, 6);
delay(100);
bar(0, 200, 640, 0);
w:=w+1;
until keypressed;
readln

end.
Соседние файлы в папке Alex