Проект "Графика в паскале"

• 1 слайд

  Проект «Графика в паскале»
  «Слон»
  Автор: Смирнова А.
  Учитель: Шерстюк С.В.
  МБОУ «Гимназия №8» г.Можга УР
  

• 2 слайд

  Program Slon;
  uses GraphABC;
  begin SetWindowWidth(620);
  SetWindowHeight(480);
  SetPenWidth(3);
  SetFontSize(18);
  SetFontColor(clBlack);
  SetFontStyle(fsBold);
  Line(20,340,80,320);
  Line(20,340,80,340);
  Line(80,340,100,400);
  Line(100,400,80,440);
  Line(80,440,100,460);
  Line(100,460,140,460);
  Line(140,460,160,440);
  Line(160,440,140,400);
  Line(140,400,160,360);
  Line(140,400,180,400);
  Line(180,400,200,420);
  Line(200,420,180,440);
  Line(180,440,160,440);
  Line(180,400,240,380);
  Line(240,380,260,360);
  Line(260,360,260,320);
  Line(260,320,220,340);
  Line(260,360,280,380);
  Line(280,380,320,360);
  Line(320,360,320,340);
  Line(320,340,300,300);
  Line(300,300,240,280);
  Line(260,360,280,400);
  Line(280,400,260,420);
  Line(260,420,280,440);
  Line(280,440,320,440);
  
  
  

• 3 слайд

  Line(320,440,340,420);
  Line(340,420,320,400);
  Line(320,400,340,310);
  Line(320,340,360,280);
  Line(340,260,440,360);
  Line(440,360,480,360);
  Line(480,360,520,320);
  Line(520,320,480,300);
  Line(480,300,460,320);
  Line(460,320,480,360);
  Line(460,320,440,320);
  Line(440,320,440,360);
  Line(440,320,420,300);
  Line(420,300,400,320);
  Line(420,300,400,260);
  Line(400,260,380,280);
  Line(400,260,400,220);
  Line(400,220,380,200);
  Line(380,200,360,200);
  Line(360,200,320,240);
  Line(80,340,80,300);
  Line(80,300,100,260);
  Line(100,260,120,240);
  Line(120,240,200,240);
  Line(200,240,280,220);
  Line(120,240,40,220);
  Line(40,220,40,160);
  Line(40,160,60,120);
  Line(60,120,100,80);
  Line(100,80,120,80);
  Line(120,80,280,140);
  Line(120,80,300,120);
  Line(280,140,240,140);
  Line(240,140,220,160);
  

• 4 слайд

  Line(220,160,220,180);
  Line(300,120,280,140);
  Line(280,140,260,180);
  Line(260,180,280,220);
  Line(280,220,300,240);
  Line(300,120,380,120);
  Line(340,140,320,140);
  Line(320,140,300,160);
  Line(300,160,300,180);
  Line(380,120,540,80);
  Line(400,140,540,80);
  Line(380,120,400,140);
  Line(380,140,420,140);
  Line(400,140,400,160);
  Line(420,140,440,160);
  Line(440,160,440,180);
  Line(420,180,420,200);
  Line(420,200,400,220);
  Line(400,240,420,260);
  Line(420,260,500,220);
  Line(500,220,580,160);
  Line(580,160,580,100);
  Line(580,100,560,80);
  Line(560,80,540,80);
  Line(340,160,320,180);
  Line(340,160,360,180);
  Line(360,180,340,200);
  Line(340,200,320,180);
  Line(340,200,340,180);
  Line(340,180,320,180);
  Line(400,160,380,180);
  Line(380,180,400,200);
  Line(400,200,420,180);
  
  
  
  

• 5 слайд

  Line(420,180,400,160);
  Line(400,180,380,180);
  Line(400,180,400,200);
  Line(480,300,480,240);
  Line(480,240,500,260);
  Line(500,260,480,300);
  Line(520,300,560,260);
  Line(560,260,560,280);
  Line(560,280,520,300);
  Line(520,260,540,220);
  Line(540,220,560,220);
  Line(560,220,560,240);
  Line(560,240,520,260);
  
  
  
  FloodFill(180,420,clGray);
  FloodFill(300,400,clGray);
  FloodFill(180,300,clLightGray);
  FloodFill(70,330,clLightGray);
  FloodFill(260,120,clLightGray);
  FloodFill(420,120,clLightGray);
  FloodFill(420,320,clLightGray);
  FloodFill(460,340,clLightGray);
  FloodFill(480,320,clLightGray);
  FloodFill(490,270,clLightBlue);
  FloodFill(540,240,clLightBlue);
  FloodFill(550,280,clLightBlue);
  FloodFill(330,185,clBlack);
  FloodFill(390,185,clBlack);
  FloodFill(120,140,clLightPink);
  FloodFill(500,140,clLightPink);
  end.
  
  

• 6 слайд