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

program a1;
uses crt,graph;
var gd,gm,a,b,i,c,d,e,x,y:integer;
q:char;
label 1,2;
procedure pict1;
begin
{rectangle(200+a,150+a,400-a,350-a);rectangle(250-a,200-a,350+a,300+a);
rectangle(200+a,150+a,300-a,250-a);rectangle(300+a,150+a,400-a,250-a);
rectangle(300+a,250+a,400-a,350-a);rectangle(200+a,250+a,300-a,350-a);}
circle(300+a,250+a,b);circle(300-a,250+a,b);
circle(300+a,250-a,b);circle(300-a,250-a,b);circle(300,250,b);
end;
begin
1:writeln('‚ўҐ¤ЁвҐ 2 楫ле зЁб«  ®в -7 ¤® 7:');readln(c,d);
writeln('‚ўҐ¤ЁвҐ 2 楫ле зЁб«  ®в 0 ¤® 15:');readln(i,e);
gd:=detect;
initgraph(gd,gm,'d:\tp70\bgi');
if graphresult<>grok then begin
textcolor(20);writeln('ЋиЁЎЄ  !');delay(3000);halt;end;
setbkcolor(black);
setlinestyle(0,0,1);
{i:=1;}randomize;
repeat
a:=1;b:=50;
repeat
setcolor(2*i{i+1});
pict1;delay(20);
setcolor({i-1}i+1);pict1;
a:=a+c;b:=b-1;
until keypressed or(a=100)or(b<1);
a:=100;b:=1;
repeat
setcolor(i{i-1});
pict1;delay(20);
setcolor({i+1}i-1);pict1;
a:=a-d;b:=b+3;
until keypressed or(a=0)or(b>70);i:=i+e;
until keypressed;
closegraph;
writeln('…йҐ (y/n)?');readln(q);clrscr;
if ord(q)=110 then goto 2;if ord(q)=121 then goto 1;
2:end.