Программирование. Pascal ABC. Графика


Чтобы посмотреть презентацию с оформлением и слайдами, скачайте ее файл и откройте в PowerPoint на своем компьютере.
Текстовое содержимое слайдов:

ГрафикаРисование в Pascal Графический модульДля работы с графикой нужно подключить графический модуль.Модуль в pascal – дополнение к стандарту, содержащее некоторые специфические операторы и функции.Для подключения модуля служит зарезервированное слово uses, после которого указывается имя модуля.Название графического модуля – graphabc.Модули подключаются сразу после имени программы:program z;uses graphabc;…
Графический модульЕсли составить программу, которая пока ничего не делает, то после её запуска можно увидеть отдельное окно, в котором и будет выполнятся рисование.Название окна совпадает с названием модуля, а так как в программа закончена, то написано, что программа завершена.program z;uses graphabc;beginend.
Координаты окнаВсе процедуры рисования используют координатную плоскость графического окна.Как и в любой плоскости, используются две координаты – x и y, но направление осей отличается от декартовых.Начало координат (0, 0) расположено в верхнем левом углу.Ось x направлена вправо,Ось y направлена вниз.yx0 ЦветВсе точки и линии рисуются определенным цветом, который надо указать в самом операторе рисования или установить перед использованием оператора рисования.Каждый цвет имеет номер от 0 до 16777215.Но для удобства мы будем использовать RGB модель цвета. В этой модели каждый цвет представляется совокупностью сочетаний трех основных цветов: красного, зеленого и синего. ЦветИнтенсивность каждого цвета может меняться от 0 до 255, причем 0 – минимальная интенсивность, а 255 – максимальная.0255Если все три цвета имеют нулевую интенсивность (r=0, g=0, b=0), то получается черный цвет.Если все три цвета имеют максимальную интенсивность (r=255, g=255, b=255), то – белый.rgb ЦветКак же получить любой другой цвет?Сначала разберемся с основными цветами:Красный: r = 255, g = 0, b = 0Зеленый: r = 0, g = 255, b = 0Синий: r = 0, g = 0, b = 255Желтый: r = 255, g = 255, b = 0Фиолетовый: r = 255, g = 0, b = 255Бирюзовый: r = 0, g = 255, b = 255 ЦветВсе остальные цвета можно получить, используя различные комбинации интенсивности.Оттенки серого получаются при одинаковой интенсивности всех трех компонентов.Для выбора цвета может помочь программа RGBmodelДля установки цвета в операторах используется процедура rgb(r,g,b), где r – интенсивность красного, g – интенсивность зеленого и b – интенсивность синего компонента.
Графические примитивы. ТочкаПереходим непосредственно к процедурам рисования:setpixel(x,y,c); рисование точки с координатами x,y и цветом c.Но так как цвет мы договорились записывать с помощью процедуры RGB, то установка точки будет выглядеть непросто:setpixel(x,y,rgb(r,g,b));Например:setpixel(100,80,rgb(255,0,0));Рисование точки с координатами x=100 и y=80 красным цветом Графические примитивы. Линияпроцедура:line(x1,y1,x2,y2);Рисует отрезок прямой линиикоординаты x1,y1 – начало отрезкакоординаты x2,y2 – конец отрезкаНапример:line(20,35,100,80);Обратите внимание, что в самой процедуре рисования цвет установить нельзя и отрезок нарисовался черным цветом. ПероВсе линии в Паскале рисуются так называемым пером.Перо имеет такие свойства как цвет и толщину.По умолчанию цвет пера черный, а толщина равна 1-му пикселю.Для изменения цвета пера (цвета всех следующих линий) нужно воспользоваться оператором:setpencolor(c), где с – номер цветаМы же в нашей модели будем пользоваться следующей записью:setpencolor(rgb(r,g,b));Например:setpencolor(rgb(0,0,100));– установка темно-синего цвета пера ПероДля изменения толщины пера (и всех следующих линий) нужно воспользоваться оператором:setpenwidth(d), где d – толщина пера в пикселяхНапример:program z;uses graphabc;begin setpencolor(rgb(0,0,100)); setpenwidth(3); line(10,50,100,50);end.Рисование горизонтальной темно-синей линии толщиной в 3 пикселя Прямоугольникrectangle(x1,y1,x2,y2) рисует прямоугольникx1,y1 – координаты одной вершиныx2,y2 – координаты противоположной вершиныprogram z;uses graphabc;begin setpencolor(rgb(0,100,0)); setpenwidth(2); rectangle(50,40,150,90);end.x1,y1x2,y2 Окружностьcircle(x,y,r) рисует окружностьx1,y1 – координаты центра окружностиr – радиус окружностиprogram z;uses graphabc;begin setpencolor(rgb(99,99,99)); setpenwidth(2); circle(100,100,50);endx,yr Эллипсellipse(x1,y1,x2,y2) рисует эллипс,заключенный в прямоугольник с координатами противоположных вершин x1,y1 и x2,y2program z;uses graphabc;begin setpencolor(rgb(190,0,0)); setpenwidth(5); ellipse(30,20,120,80);end.x1,y1x2,y2 Дугаarc(x,y,r,a1,a2) рисует дугу окружностиx1,y1 – координаты центра окружностиr – радиус окружностиa1 – начальный угол дугиa2 – конечный угол дугиНапример:arc(100,100,80,45,120);x,yra1a2 ЗаданиеНарисовать домик:program z;uses graphabc;begin setpenwidth(3); setpencolor(rgb(0,0,100)); rectangle(100,150,300,400); line(100,150,200,50); line(200,50,300,150); setpencolor(rgb(200,0,0)); rectangle(150,200,250,300); setpencolor(rgb(200,200,0)); circle(50,50,40); setpenwidth(4); setpencolor(rgb(0,100,0)); line(0,400,400,400);end.

Предварительный просмотр файла не поддерживается. Скачайте его и откройте на компьютере.

Предварительный просмотр файла не поддерживается. Скачайте его и откройте на компьютере.

Приложенные файлы

  • pptx 5Grafika
    Размер файла: 728 kB Загрузок: 4
  • zip rgbmodel
    Размер файла: 199 kB Загрузок: 8
  • zip Program1
    Размер файла: 715 B Загрузок: 5