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

Автор работы: Пользователь скрыл имя, 18 Февраля 2012 в 13:28, курсовая работа

Краткое описание

Целью курсовой работы является разработка «мультипликационного» графического проекта в среде программирования Паскаль. Графические возможности Паскаль будут реализованы на примере персонажа «ЦЫПА».
Курсовая работа состоит из двух основных разделов:
1. Графические возможности язык Паскаль;
2. Разработка графического проекта «ЦЫПА».

Содержание работы

ВВЕДЕНИЕ…..………………………………………………………………….
1. ГРАФИЧЕСКИЕ ВОЗМОЖНОСТИ ЯЗЫКА ПАСКАЛЬ …………………
1.1 История языка …………………………………………………………….
1.2 Основные понятия графики ………………………………………….......
1.3 Работа с графикой в Паскале …………………………………………….
2. РАЗРАБОТКА ГРАФИЧЕСКОГО ПРОЕКТА ……………………………..
2.1 Этапы создания проекта ………………………………….........................
2.2 Реализация проекта на экране…………………………………………….
ЗАКЛЮЧЕНИЕ……………………………………………………………………
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ..……………………………
ПРИЛОЖЕНИЕ…………………………………………………………………....

Скачать целиком (145.32 Кб) Сколько стоит заказать работу?
Содержимое работы - 1 файл

Министерство образования и науки Республики Казахстан.doc

— 294.50 Кб (Скачать файл)

     line(218,205,205,235);

     line(235,205,250,235);

     ellipse(245,237,320,50,6,8);

     ellipse(210,237,100,260,6,8);

     line(207,245,220,215);

     line(248,245,235,215);

     ellipse(227,245,180,360,20,20);

     ellipse(248,250,240,90,5,5);

     ellipse(207,250,90,300,5,5);

     setfillstyle(1,14);

     floodfill(235,120,6);

     setfillstyle(1,6);

     floodfill(247,250,6);

     floodfill(203,250,6); 

     line(230,70,225,45);

     line(235,60,230,35);{irokes}

     line(240,60,240,40); 

     {browi}

     ellipse(255,115,10,80,20,20);

     ellipse(205,115,100,170,20,20); 

     {resniz}

     ellipse(251,108,270,30,5,10);

     ellipse(256,106,270,30,5,10);

     ellipse(260,110,270,30,5,10); 

     ellipse(209,108,150,270,5,10);

     ellipse(204,106,150,270,5,10);

     ellipse(200,110,150,270,5,10); 

     w(6);

      End; 

                  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);

     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);

     end; 

     PROCEDURE m1(x,y:integer);

     begin

     setcolor(4);

     line(x,y,x+5,y);

     line(x+5,y,x+8,y-5);   {zvezda}

     line(x+8,y-5,x+13,y);

     line(x+13,y,x+18,y);

     line(x+18,y,x+14,y+4);

     line(x+14,y+4,x+20,y+8);

     line(x+20,y+8,x+8,y+6);

     line(x+8,y+6,x+2,y+8);

     line(x+2,y+8,x+4,y+4);

     line(x+4,y+4,x,y);

     setfillstyle(1,14);

     floodfill(x+10,y+3,4);

     end; 

     PROCEDURE t;

     begin

     setcolor(4);

     ellipse(0,0,180,70,50,50);

     setfillstyle(1,14);      {luna}

     floodfill(0,0,4); 

     setcolor(1);

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

     setfillstyle(1,9);      {ozero}

     floodfill(620,450,1);

     end; 

     PROCEDURE k1(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,y,0,90,5,10);

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

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

     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 l1(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);

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

     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

     initgraph(gd,gm, 'd:/distr/tp7'); 

     t;

     l1(50,250);

     l1(50,400);

     l1(420,330);

     l1(550,340);

     l1(10,350);

     l1(100,400);

     l1(350,370);

     l1(400,250);

     l1(470,270); 

     m1(300,50); m1(100,45); m1(40,60); m1(140,20); m1(140,100); m1(200,150);

     m1(420,100); m1(200,15); m1(420,35); m1(50,20); m1(500,35); m1(550,50);

     m1(500,80); m1(500,150); m1(550,150); m1(600,20); m1(610,35); m1(580,80);

     m1(400,80); m1(400,150); m1(450,100); m1(350,70); m1(370,35); m1(300,100);

     m1(240,100); m1(200,100); m1(20,150); m1(200,150);m1(150,150); m1(50,100); 

     for i:=1 to 10 do begin

     k1(i*45,480);

     k1(i*40,450);

     k1(i*70,300);

     k1(i*40,350);

     end;

     k1(150,350);

     k1(300,350);

     k1(380,320);

     k1(400,300);

     k1(500,350);

     k1(500,350);

     k1(450,400);

     k1(480,400);

     k1(450,450);

     k1(500,350);

     k1(250,400);

     k1(300,450); 

     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,6);

     floodfill(232,186,6);

     floodfill(232,188,6); 

     {tulovish}

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

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

     line(218,205,205,235);

     line(235,205,250,235);

     ellipse(245,237,320,50,6,8);

     ellipse(210,237,100,260,6,8);

     line(207,245,220,215);

     line(248,245,235,215);

     ellipse(227,245,180,360,20,20);

     setfillstyle(1,14);

     floodfill(235,120,6);

     ellipse(248,250,240,90,5,5);

     ellipse(207,250,90,300,5,5);

     setfillstyle(1,6);

     floodfill(247,250,6);

     floodfill(203,250,6); 

     line(230,70,225,45);

     line(235,60,230,35);{irokes}

     line(240,60,240,40); 

     {browi}

     ellipse(255,115,10,80,20,20);

     ellipse(205,115,100,170,20,20); 

     {resniz}

     ellipse(251,108,270,30,5,10);

     ellipse(256,106,270,30,5,10);

     ellipse(260,110,270,30,5,10); 

     ellipse(209,108,150,270,5,10);

     ellipse(204,106,150,270,5,10);

     ellipse(200,110,150,270,5,10); 

     repeat

     w(14);

     until keypressed; 

     q;

     readln;

     closegraph;

     END. 
 
 

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