Графические возможности TurboPascal 7.0 — страница 17

  • Просмотров 6283
  • Скачиваний 578
  • Размер файла 3666
    Кб

LineTo(x,y-20); FloodFill(x,y,White) end; {for} SetFillStylefl,White); SetTextStyle(6,0,4); for x:=238 to 243 do for y:=100 to 102 do OutTextXY(x,y,'P H I L I P S'); ReadLn; SetBkColor(Cyan); ReadLn; SetBkColor(Red); ReadLn; CloseGraph END. Параметр цикла к в программе используется для рисования пар без применения процедур, а также двойных линий. 4) Uses Crt,Graph; Const xl=160; yl=270; x2=480; y2=214; Var Gd,Gm : Integer; x,y,a,b: Longlnt; BEGIN Qd:=Vga; Om:=VgaHi; InitGraph(Gd,Gm,' ') ; for x:=150 to 495 do begin a:=Sgr(x-xl); b:=Sqr(x-x2); for y:=180 to 300 do ^f Sqrt(a+Sqr(y-y1))+ Sqrt(b+Sqr(y-y2))<334 then PutPixel(x,y,1) { else PutPixel (x,y,7) } end; SetColor(White); SetTextStyle

(3,0,1); SetUserCharSize(1,1,1,1) ; for x:=202 to 205 do for y:=220 to 223 do OutTextXY(x,y, 'S A M S U N G'); ReadLn; SetBkColor(Cyan); ReadLn; SetBkColor(Blue); SetPalette(Blue,White); SetPalette(White,Blue); ReadLn; CloseGraph; END. ЗАКЛЮЧЕНИЕ В данной курсовой работе описываются различные процедуры и функции, предназначенные для создания графических объектов в Турбо Паскале. Используя выше перечисленные процедуры и функции, я научился изображать различные фигуры различных форм и размеров, так же смог показать движение

фигуры. Написав данные программу, я получил навык работы в графической среде Турбо Паскаль, научился правильно применять разные процедуры и функции, точно определять и задавать координаты различных линий, эллипсов, окружностей, прямоугольников и т.д. СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ Информатика(Базовый курс) С. В. Симонович, СПб: Питер, 2001г. Основы языка Turbo Pascal(учебный курс), П. И. Рудаков, М. А. Федотов, Москва: Радио и Связь, 2000г.

Основы программирования в задачах и примерах, А. В. Милов, Харьков: ФОЛИО, 2002г. Практикум программирования на Turbo Pascal. Задачи, алгоритмы и решения.-2-е изд.-СПб.:ООО»ДиаСофтЮп», 2002. Практика программирования, Ю. Кетков, А. Кетков, СПб: БХБ/ Петербург, 2002г. Фаронов В.В. Turbo Pascal 7.0 Начальный курс. Учебное пособие.-М: Издательство «ОМД Групп», 2003.-616 с.:ил. Turbo Pascal: учитесь программировать, О. А. Меженный, Москва: изд.дом «Вильямс», 2001г 28