Графические возможности Паскаль

     ЗАКЛЮЧЕНИЕ 

   Целью курсовой работы было создание с помощью графических возможностей языка Паскаль мультипликационного персонажа «ЦЫПА». В ходе написания курсовой работы возникали некоторые трудности по созданию некоторых графических объектов. Были более подробно рассмотрены графические возможности в среде программирования языка Паскаль.

   Благодаря подробному описанию создания графических объектов, курсовая работа является наглядным примером по созданию графических рисунков и может служить вспомогательным средством создания любых объектов графики в графической среде языка программирования Паскаль программ для начинающих программистов.

   Как видно из анализа полученных результатов можно наглядно посмотреть, какие объекты изображения можно получить в графической среде языка Паскаль. Для программистов и для тех, кто только начал изучать среду программирования языка Паскаль следует обратить внимание на приложение, в котором  наглядно показаны все команды, которые были использованы при создании мультипликационного персонажа «ЦЫПА».  
 
 
 
 
 
 
 
 
 
 
 
 

СПИСОК  ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ 

 
 
 
 
 
 
 
 
 
 
 
 
 

     ПРИЛОЖЕНИЕ 

     Текст программы 

     program zipa; 

     uses Graph,crt;

     var i,n,gd,x,y,c,b,gm,a:integer; 

           PROCEDURE q;

     PROCEDURE w(b:integer);

     begin

     line(230,263,230,296);

     line(235,263,235,285);

     line(235,285,287,283);

     ellipse(288,293,290,90,15,10);

     ellipse(283,303,340,90,10,10);

     ellipse(265,298,175,325,35,14);

     setfillstyle(1,b);

     floodfill(285,290,6);

     line(225,263,225,298);

     line(220,263,220,285);

     line(220,285,165,275);               {nogi}

     ellipse(165,285,65,240,15,10);

     ellipse(170,295,90,200,13,10);

     ellipse(192,298,180,10,33,11);

     setfillstyle(1,b);

     floodfill(165,285,6);

     PROCEDURE m(x,y:integer);

     begin

     setcolor(8);

     ellipse(x+20,y+20,0,150,10,5);

     ellipse(x+40,y+20,0,150,10,5);

     end;

     PROCEDURE k(x,y:integer);

     begin

     setcolor(12);

     circle(x+5,y-15,3);        {zvetok}

     circle(x+5,y-20,3);

     circle(x+1,y-17,3);

     circle(x+2,y-12,3);

     circle(x+10,y-13,3);

     circle(x+9,y-18,3);

     circle(x+7,y-17,3);

     circle(x+7,y-22,3);

     circle(x-1,y-19,3);

     circle(x+5,y-10,3);

     circle(x+12,y-11,3);

     circle(x+10,y-20,3); 

     setcolor(2);

     ellipse(x+100,y+50,0,90,5,10);

     ellipse(x+110,y+50,90,180,5,10);

     line(x+105,y+40,x+105,y+35); 

     ellipse(x+300,y+50,0,90,5,10);

     ellipse(x+310,y+50,90,180,5,10);

     line(x+105,y+40,x+105,y+35); {trava}

     ellipse(x,y,0,90,5,10);

     ellipse(x+10,y,90,180,5,10);

     line(x+5,y-10,x+5,y-15);

     end;

     PROCEDURE l(x,y:integer);

     begin

     setcolor(8);

     line(x,y+10,x+80,y+10);

     ellipse(x,y,30,270,5,10);

     ellipse(x+10,y-10,30,270,5,10);

     ellipse(x+20,y-20,30,270,5,10);

     ellipse(x+30,y-30,30,270,5,10);          {kust}

     ellipse(x+40,y-35,0,180,6,15);

     ellipse(x+80,y,270,120,6,10);

     ellipse(x+70,y-10,270,120,6,10);

     ellipse(x+60,y-20,270,120,6,10);

     ellipse(x+50,y-30,270,120,6,10);

     setfillstyle(6,2);

     floodfill(x+30,y-30,8);

     end;

         Begin

         setcolor(3);

     line(0,200,640,200);

     setfillstyle(1,7);

     floodfill(205,300,3);

     setfillstyle(1,11);

     floodfill(205,100,3); 

     {gora}

     setcolor(3);

     line(300,200,350,100);

     line(350,100,420,200);

     line(340,120,350,110);

     line(350,110,370,130);

     setfillstyle(2,6);

     floodfill(350,150,3);

     setfillstyle(6,15);

     floodfill(350,105,3); 

     line(400,170,500,70);

     line(500,70,600,200);

     line(460,110,480,120);

     line(480,120,500,105);

     line(500,105,520,120);

     line(520,120,530,110);

     setfillstyle(2,6);

     floodfill(480,130,3);

     setfillstyle(6,15);

     floodfill(480,100,3); 

     setcolor(3);

     ellipse(630,200,30,155,50,50);

     setfillstyle(1,14);

     floodfill(630,190,3);

     setcolor(12);

     line(600,160,590,140);

     line(610,155,605,135);

     line(620,150,615,130);

     line(630,150,628,130);

     line(590,168,575,150); 

     l(50,250);

     l(50,400);

     l(400,330);

     l(500,350);

     l(10,350);

     l(100,400);

     l(350,370); 

     m(300,50);

     m(100,45);

     m(40,60);

     m(140,20);

     m(200,15);

     m(420,35);

     m(50,20);

     m(500,35);

     m(550,50); 

     for i:=1 to 10 do begin

     k(i*45,480);

     k(i*40,450);

     k(i*60,250);

     end;

     k(150,350);

     k(300,350);

     k(380,320);

     k(400,300);

     k(500,350);

     k(500,350);

     k(450,400);

     k(480,400);

     k(450,450);

     k(500,350);

     k(250,400);

     k(300,450); 

     setcolor(0);

     ellipse(620,450,50,220,150,100);

     ellipse(600,350,0,360,20,10);

     ellipse(570,355,0,360,10,5);

     ellipse(600,340,0,360,10,5);

      setfillstyle(1,0);

      floodfill(570,355,0);

      floodfill(570,357,0);

      floodfill(600,350,0);

      floodfill(600,352,0);

      setfillstyle(1,15);

      floodfill(600,342,0);

      floodfill(600,339,0);

      setfillstyle(1,1);

      floodfill(620,440,0); 

     setcolor(6);

     ellipse(225,100,0,180,65,40);

     ellipse(160,120,90,270,5,20);

     ellipse(290,120,270,90,5,20);

     line(160,140,187,180);           {golova}

     line(290,140,270,180);

     ellipse(255,190,225,45,20,13);

     ellipse(200,190,135,320,19,13); 

     ellipse(205,170,0,180,11,54);            {glaz 1}

     ellipse(205,145,0,180,10,14);

     ellipse(203,167,0,180,4,13);

     ellipse(205,172,0,180,14,5);

     setfillstyle(1,10);

     floodfill(205,145,6);

     setfillstyle(1,7);

     floodfill(205,160,6);

     setfillstyle(1,15);

     floodfill(205,130,6); 

     ellipse(255,170,0,180,11,54);

     ellipse(255,145,0,180,10,14);       {glaz 2}

     ellipse(258,167,0,180,4,13);

     ellipse(255,172,0,180,14,5);

     setfillstyle(1,10);

     floodfill(255,145,6);

     setfillstyle(1,7);

     floodfill(257,160,6);

     setfillstyle(1,15);

     floodfill(255,130,6); 

     ellipse(230,187,0,360,10,5);

     ellipse(215,187,305,45,4,6);   {rot}

     ellipse(245,187,120,255,4,6);

     line(220,187,240,187);

     setfillstyle(1,4);

     floodfill(232,186,6);

     floodfill(232,188,6); 

     {tulovish}

     ellipse(245,210,90,150,10,13);

     ellipse(207,206,0,45,10,13);