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

program ol;
uses Graph,crt;
var  gd,gm,i,j:integer;
begin
     Gd := detect    ;
     InitGraph(gd, Gm, 'c:\tp70\bgi');
     outtextxy(100,50,' State Academy of Oil and Gas');
     outtextxy(100,70,' Group XH-94-1');
     line(100,100,300,300);
     line(300,300,100,300);
     line(100,100,100,300);
     setcolor(12);
     circle(100,100,15);
     line(85,100,85,220);
     line(113,92 ,175+i,145+i);
     bar(95,220,75,250);
     setcolor(13);
     line(161, 160, 201, 200);
     line(196, 125, 236, 165);
     line(161, 160, 196, 125);
     line(201, 200, 236, 165);
     for j:=0 to 20 do
         begin
         setcolor(10);
         line(121+j, 120+j, 141+j, 140+j);
         line(126+j, 115+j, 146+j, 135+j);
         line(121+j, 120+j, 126+j, 115+j);
         line(141+j, 140+j, 146+j, 135+j);
         delay(30000);
         setcolor(0);
         line(121+j, 120+j, 141+j, 140+j);
         line(126+j, 115+j, 146+j, 135+j);
         line(121+j, 120+j, 126+j, 115+j);
         line(141+j, 140+j, 146+j, 135+j);
         end;
     for i:=0 to 99  do
         begin
         setcolor(i);
     outtextxy(100,50,' State Academy of Oil and Gas');
     outtextxy(100,70,' Group XH-94-1');
         setcolor(13);
         line(161+i, 160+i, 201+i, 200+i);
         line(196+i, 125+i, 236+i, 165+i);
         line(161+i, 160+i, 196+i, 125+i);
         line(201+i, 200+I, 236+i, 165+i);
         setcolor(10);
         line(121+i+20, 120+i+20, 141+i+20, 140+i+20);
         line(126+i+20, 115+i+20, 146+i+20, 135+i+20);
         line(121+i+20, 120+i+20, 126+i+20, 115+i+20);
         line(141+i+20, 140+i+20, 146+i+20, 135+i+20);
         setcolor(12);
         setfillstyle(1,15);
         bar(95,220-i,75,250-i);
         line(85,100,85,220-i);
         line(113,92 ,175+i,145+i);
         delay(8000);
         if i<99 then begin
         setcolor(0 );
         setfillstyle(1,0);
         bar(95,220-i,75,250-i);
         line(121+i+20, 120+i+20, 141+i+20, 140+i+20);
         line(126+i+20, 115+i+20, 146+i+20, 135+i+20);
         line(121+i+20, 120+i+20, 126+i+20, 115+i+20);
         line(141+i+20, 140+i+20, 146+i+20, 135+i+20);
         line(161+i, 160+i, 201+i, 200+i);
         line(196+i, 125+i, 236+i, 165+i);
         line(161+i, 160+i, 196+i, 125+i);
         line(201+i, 200+I, 236+i, 165+i);
         line(85,100,85,220-i);
         line(113,92 ,175+i,145+i);
                     end
                   else
         end;
       repeat until keypressed;
     readln;
     closegraph;

end.