01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / DRON2

program graphika;
uses crt,graph;
 var p,n,m,i,j,gd,gm,x,y:integer;
                 { Џђ–…„“ђЂ €‡Њ…Ќ…Ќ€џ –‚…’Ђ ‘ ЏЂђЂЊ…’ђЂЊ€ M,N }
      procedure c;
   begin
    setfillstyle(m,n);
    end;
    begin
   j:=0;
   clrscr;
  gd:=detect;
      initgraph (gd,gm,'');
    setcolor(7);
    m:=1;n:=8;
    c;
    clrscr;
          floodfill(1,1,3);
       setcolor(5);
         settextstyle(7,horizdir,3);
      outtextxy(210,150,' —ҐЄ¬Ґ­Ґў Ђ­¤аҐ© ');
       outtextxy(120,180,'Њѓ’“ Ё¬ Ѓ г¬ ­  ');
       outtextxy(140,210,'K  M  T  3 - 21 ');
       settextstyle(gothicfont,horizdir,2);
       outtextxy(450,360,'enter to continue');

                     readln;
                           { ѓЋђ€‡ЋЌ’ }  setcolor(7);n:=8;m:=11;C;
line (0,300,640,300);
 floodfill(1,410,7);
   n:=1;m:=1;
   c;
     floodfill(1,1,7);
                             { ‘Ћ‹Ќ–… }
          setcolor(14);
      for i:=1 to 10 do
       circle((random(649)),(random(150)),1);
     setcolor(14);
     circle (350,20,15);
      n:=14;
      c;
      floodfill(350,20,14);
                        { ”ЂЌЂђЌ›‰ ‘’Ћ‹Ѓ }
                               { ‘’Ћ‹Ѓ }
                   setcolor(8);
                     n:=8;c;
          bar(140,300,146,180);
          arc(151,180,45,180,10);
          arc(153,180,10,180,7);n:=0;c;
          floodfill(144,177,8);
            for i:=1 to 4 do begin
   x:=trunc(15*cos(i/1.8));
   y:=round(15*sin(i/1.8));
   setcolor(14);
   line (157,178,157+x,178+y)
   end;
   n:=8;c;setcolor(8);
   ellipse(157,178,390,30,7,3);
   floodfill(157,178,8);
       setcolor(7);
     n:=7;
     c;
                            { Ј Ё }

        n:=7;
        m:=1;
        c;
        bar(500,100,650,150);
        n:=2;
        m:=1;
        c;
         bar(550,150,650,300);


       setcolor(4);
         settextstyle(7,horizdir,5);
      outtextxy(510,105,' ѓЂ€ ');
                               { в а ­в ©Є  }
                               setcolor(8);n:=8;m:=1;c;
       bar(322,290,412,275);
       bar(412,275,350,260);
       line(350,260,345,276);
       N:=0;C;
       FLOOdfill(349,270,8);
       bar(352,263,360,275);
       bar(364,263,375,275);

       setcolor(0);n:=0;c;
        circle(403,293,6);
        circle(345,293,6);
        floodfill(403,293,0);
 floodfill(345,293,0);
          {              „   ‚   €   †   …   Ќ   €   …               }
     x:=0;    for i:=1 to 88 do begin
         x:=x+2;
         n:=1;c;
         bar(412-x,260,440,290);
         bar(323-x,290,440,299);
                       setcolor
              (8);n:=8;m:=1;c;
       bar(323-x,290,412-x,275);
       bar(412-x,275,350-x,260);
       line(350-x,260,345-x,276);
       N:=0;C;
       FLOOdfill(349-x,270,8);
       bar(352-x,263,360-x,275);
       bar(364-x,263,375-x,275);
                     setcolor(0);n:=0;c;
        circle(403-X,293,6);
        circle(345-X,293,6);
        floodfill(403-X,293,0);
floodfill(345-x,293,0);delay(101-i);
      end;sound(400);delay(500);nosound;
                                { ‘’Ћ‹Ѓ }
     delay(1000);  y:=-2;x:=0;
          p:=300;
   for i:=1 to 47 do begin
   y:=y+2;
   n:=1;c;
   bar(149,274,170,175);
   n:=8;c;setcolor(8);
   ellipse(157,178+y,390,30,7,3);
   floodfill(157,178+y,8);

   delay(147-i*2);
end; x:=350;
setcolor(4);
readln;
clrscr;
  for i:=1 to 70 do
 begin
 x:=x-5;
 n:=0;m:=1;c;
       floodfill(1,1,1);
       setcolor(3);
          settextstyle(8,horizdir,1);
 outtextxy(110,x+30   ,'           бв㤥­в   —ҐЄ¬Ґ­Ґў Ђ.');
 outtextxy(110,x+60   ,'     ЇаҐЇ®¤ ў вҐ«м   ђг¤ Є®ў €.‚ ');
 delay(100);
    end; readln;
    clrscr;
    floodfill(1,1,1);
 setcolor(3);
          settextstyle(8,horizdir,4);
 outtextxy(10,140   ,' ў®в Ё бЄ §ЄҐ Є®­Ґж , ');
  outtextxy( 10,170,'  Єв® б«ги « - ¬®«®¤Ґж');
      readln;
      END.