asd / корзина / лекции по TP / Lecture_Pascal / graph / SWECHA

program cub;
uses graph,crt;
var
graphdriver,graphmode : integer;
x0,y0,k,x : integer;
procedure yadro;
begin
repeat
setcolor(white);
circle(x0+k,y0,15);
delay(15000);
setcolor(black);
circle(x0+k,y0,15);
k:=k+2
until k>=100;
end;
procedure ell(col:word);
begin
setcolor(col);
ellipse(565,y0-10,0,360,5,30)
end;
begin
graphdriver:=detect;
clrscr;
initgraph(graphdriver,graphmode,'c:\tp70\bgi');
setbkcolor(black);
y0:=300;
x0:=200;
k:=0;
rectangle(50,285,184,315);
rectangle(550,326,580,415);
circle(90,335,20);
line(20,355,85,315);
line(565,326,565,315);
setcolor(5);
ellipse(565,y0-10,0,360,5,30);
repeat
yadro;
if k>345 then ell(black)
until keypressed;
closegraph;
end.