Графика в Турбо Паскале — страница 7

  • Просмотров 3046
  • Скачиваний 278
  • Размер файла 22
    Кб

Line(280,130,335,105); Line(280,130,285,120); Line(285,120,266,120); Line(285,120,333,98); Arc(332,102,270,90,4); Line(240,150,270,150); Line(240,140,270,140); Line(270,140,353,102); SetFillStyle(1,5); FloodFill(338,102,1); Ellipse(248,152,165,23,8,8); SetFillStyle(9,8); FloodFill(248,154,1); Circle(280,152,10); SetFillStyle(9,8); FloodFill(280,152,1); arc(240,145,90,270,5); SetFillStyle(1,7); FloodFill(240,145,1); SetColor(6); Line(435,230,370,240); Line(440,215,390,230); Line(435,230,435,300); Line(425,240,370,260); Line(425,240,425,300); Line(425,300,435,300); Line(435,295,440,295); Line(440,215,440,295); Line(391,230,351,185); Line(328,200,355,185); Ellipse(365,210,160,290,33,50); Line(340,185,340,193); Circle(340,178,10); SetFillStyle(1,6); FloodFill(340,178,6);

Line(352,188,390,135); Line(355,190,390,140); Line(390,140,390,135); Line(335,200,288,210); Line(335,205,288,215); SetFillStyle(8,1); FloodFill(353,189,6); SetFillStyle(1,1); FloodFill(380,152,6); Line(288,210,280,178); Line(288,215,275,185); Line(275,185,280,178); SetFillStyle(1,1); FloodFill(277,185,6); SetColor(0); Ellipse(395,200,0,360,5,3); Line(390,200,390,210); Line(400,200,400,210); SetFillStyle(9,6); FloodFill(395,200,0); Arc(395,208,150,0,5); SetFillStyle(1,7); FloodFill(395,208,0); SetColor(1); Line(500,100,500,400); Line(520,100,520,400); Ellipse(510,100,0,200,10,10); Ellipse(510,396,200,0,10,10); SetFillStyle(1,6); FloodFill(513,105,1); Ellipse(485,130,10,160,25,25); Ellipse(535,115,19,160,25,25); Ellipse(460,138,10,170,16,16); Ellipse(460,138,160,8,15,8);

SetFillstyle(1,14); FloodFill(463,140,1); begin Ellipse(560,122,10,170,16,16); Ellipse(560,122,160,8,15,8); SetFillStyle(1,14); FloodFill(562,125,1); Delay(30000); SetFillStyle(1,0); FloodFill(562,125,1); Delay(30000); SetFillStyle(1,14); FloodFill(562,125,1); Delay(30000); SetFillStyle(1,0); FloodFill(562,125,1); Delay(30000); SetFillStyle(1,14); FloodFill(562,125,1); Delay(30000); SetFillStyle(1,0); FloodFill(562,125,1); Delay(30000); SetFillStyle(1,14); FloodFill(562,125,1); Delay(30000); SetFillStyle(1,0); FloodFill(562,125,1); Delay(30000); SetFillStyle(1,14); FloodFill(562,125,1); Delay(30000); SetFillStyle(1,0); FloodFill(562,125,1); Delay(30000); SetFillStyle(1,14); FloodFill(562,125,1); Delay(30000); SetFillStyle(1,0); FloodFill(562,125,1); Delay(30000);

SetFillStyle(1,14); FloodFill(562,125,1); Delay(30000); SetFillStyle(1,14); FloodFill(562,125,1); Delay(30000); SetFillStyle(1,0); FloodFill(562,125,1); Delay(30000); SetFillStyle(1,14); FloodFill(562,125,1); Delay(30000); SetFillStyle(1,0); FloodFill(562,125,1); Delay(30000); SetFillStyle(1,14); FloodFill(562,125,1); Delay(30000); SetFillStyle(1,0); FloodFill(562,125,1); Delay(30000); SetFillStyle(1,14); FloodFill(562,125,1); Delay(30000); SetFillStyle(1,0); FloodFill(562,125,1); Delay(30000); SetFillStyle(1,14); FloodFill(562,125,1); Delay(30000); repeat until keypressed; closegraph; end; end. ЗАКЛЮЧЕНИЕ В данной курсовой работе описываются различные процедуры и функции, предназначенные для

создания графических объектов в Турбо Паскале. Используя выше перечисленные процедуры и функции, автор научился изображать различные фигуры различных форм и размеров, так же смог показать движение фигуры. Написав данную программу, автор получил навык работы в графической среде Турбо Паскаль, научился правильно применять разные процедуры и функции, точно определять и задавать координаты различных линий, эллипсов,

окружностей, прямоугольников и т.д. СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ 1. Информатика(Базовый курс) С. В. Симонович, СПб: Питер, 2001г. 2. Основы языка Turbo Pascal(учебный курс), П. И. Рудаков, М. А. Федотов, Москва: Радио и Связь, 2000г. 3. Основы программирования в задачах и примерах, А. В. Милов, Харьков: ФОЛИО, 2002г. 4. Программирование. С. Симонович, Г. Евсеев, Москва: АСТ – ПРЕСС книга 2000г. 5. Практика программирования, Ю. Кетков, А. Кетков, СПб: БХБ/