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

 program GRAFIKA;
 uses GRAPH;
 var gd,gm:integer;
   begin
 gd:=Detect;
  INITGRAPH(gd,gm,'C:\TP\BGI');
 {1} setcolor(white);
     setfillstyle(1,14);
  line(320,20,100,160);
   line(320,20,540,160);
   line(320,40,135,160);
   line(320,40,505,160);
   line(100,160,540,160); floodfill(320,30,white);
   rectangle(90,160,550,180);floodfill(300,170,white);
     setfillstyle(1,13);
     floodfill(320,50,white);
     rectangle(120,180,520,340);
     floodfill(320,185,white);
 {2}  setfillstyle(1,14);
   rectangle(100,340,540,360);floodfill(300,350,white);
   rectangle(80,360,560,380); floodfill(300,370,white);
   rectangle(60,380,580,400); floodfill(300,390,white);

  {3}
        line(120,180,520,180);
        rectangle(160,200,200,340);line(160,200,200,200);
        rectangle(300,200,340,340);line(300,200,340,200);
        rectangle(440,200,480,340);line(440,200,480,200);
        floodfill(165,205,white);
        floodfill(305,205,white);
        floodfill(445,205,white);
  arc(160,180,180,270,20);   arc(200,180,270,360,20);
  arc(300,180,180,270,20);   arc(340,180,270,360,20);
  arc(440,180,180,270,20);   arc(480,180,270,360,20);
    floodfill(160,185,white);
    floodfill(300,185,white);
    floodfill(440,185,white);
   {4}   setfillstyle(1,11);
         rectangle(220,240,280,340);floodfill(225,245,white);
   line(220,240,280,240); ellipse(250,240,0,180,30,40);floodfill(250,235,white);
         rectangle(360,240,420,340);floodfill(365,245,white);
   line(360,240,420,240); ellipse(390,240,0,180,30,40);floodfill(390,235,white);
      line(250,200,250,340);line(390,200,390,340);
      line(220,300,280,300);line(360,300,420,300);
      line(250,240,270,210);line(250,240,230,210);
      line(390,240,370,210);line(390,240,410,210);
   {5}  rectangle(270,110,370,150);line(270,110,370,110);
        floodfill(275,115,white);
        ellipse(320,110,0,180,50,30);   floodfill(320,105,white);
        line(320,110,290,85);
        line(320,110,350,85);
        line(320,110,320,80);
        line(320,110,320,150);
        line(270,130,370,130);
   {6}    setfillstyle(1,2);
          rectangle(1,1,640,480);
          line(1,260,120,260);
          line(520,260,640,260);
       floodfill(22,265,white);
          setfillstyle(1,1);
       floodfill(2,2,white);
   {7} setfillstyle(1,3);
   circle(140,430,5); floodfill(143,431,white);
       setfillstyle(1,4);
   circle(150,430,5);floodfill(151,431,white);
   circle(130,430,5);floodfill(131,431,white);
   circle(140,440,5);floodfill(141,441,white);
   circle(140,420,5);floodfill(141,421,white);
  readln;
  closegraph;end.