Инфоурок / Информатика / Презентации / Графические операции в Паскале

Графические операции в Паскале

Курсы профессиональной переподготовки
124 курса

Выдаем дипломы установленного образца

Заочное обучение - на сайте «Инфоурок»
(в дипломе форма обучения не указывается)

Начало обучения: 22 ноября
(набор групп каждую неделю)

Лицензия на образовательную деятельность
(№5201 выдана ООО «Инфоурок» 20.05.2016)


Скидка 50%

от 13 800  6 900 руб. / 300 часов

от 17 800  8 900 руб. / 600 часов

Выберите квалификацию, которая должна быть указана в Вашем дипломе:
... и ещё 87 других квалификаций, которые Вы можете получить

Получите наградные документы сразу с 38 конкурсов за один орг.взнос: Подробнее ->>

библиотека
материалов
Графические операции Цель: создавать и реализовывать простейшие линейные, раз...
Что надо знать, прежде чем приступить к программированию? В языке Turbo Pasca...
Пример 1. Program Primer_1; uses Graph; var Gd,Gm:Integer; begin Gd:=VGA;{Гра...
Для того, чтобы мы могли что-либо нарисовать на экране, нам нужно уметь зада...
Пример 2. Program Primer_1; uses Graph; var Gd,Gm:Integer; begin Gd:=VGA; Gm:...
Довольно обидно работать на цветном мониторе только с черно-белыми изображени...
Пример 3. (Самостоятельное решение) Изобразить тот же треугольник, что и в пр...
Пример 4. Program Primer_4; uses Graph; const CenterX=320; Center Y=240; var...
Пример 5. Program Primer_5; uses Graph; var grDriver:Integer; grMode:Integer;...
Самостоятельное составление программ I-II уровень Построить семейство разноцв...
III – IV уровень Изобразить график функции y=cos(x). При изображении графика...
Пример 3. Нужный фрагмент программы If GraphResult = grOk then begin SetColor...
12 1

Описание презентации по отдельным слайдам:

№ слайда 1 Графические операции Цель: создавать и реализовывать простейшие линейные, раз
Описание слайда:

Графические операции Цель: создавать и реализовывать простейшие линейные, разветвленные, циклические алгоритмы на обработку графической информации.

№ слайда 2 Что надо знать, прежде чем приступить к программированию? В языке Turbo Pasca
Описание слайда:

Что надо знать, прежде чем приступить к программированию? В языке Turbo Pascal имеется значительное количество графических процедур и функций. Нам понадобиться лишь некоторые из них. Для того, чтобы компилятор «узнавал» их названия, мы должны после заголовка программы разместить строчку следующего вида: uses Graph; Для рисования прямых, окружностей и пр. необходимо перевести экран в графический режим. Для включения графического режима используется процедура InitGraph. Краткое описание процедур и функций в ПРИЛОЖЕНИИ

№ слайда 3 Пример 1. Program Primer_1; uses Graph; var Gd,Gm:Integer; begin Gd:=VGA;{Гра
Описание слайда:

Пример 1. Program Primer_1; uses Graph; var Gd,Gm:Integer; begin Gd:=VGA;{Графический адаптер – VGA} Gm:=VGAHi;{Графический режим VGAHi (640x480)} InitGraph (Gd,Gm,;..\bgi’); {Включить графический режим} If GraphResult=grOk then {Если режим включился успешно} {Нарисовать отрезок прямой} Line (0,0,639,479); Readln end.

№ слайда 4 Для того, чтобы мы могли что-либо нарисовать на экране, нам нужно уметь зада
Описание слайда:

Для того, чтобы мы могли что-либо нарисовать на экране, нам нужно уметь задавать положение на экране того, что мы рисуем. Для этого с экраном связывается система координат следующего вида: (0,0) Х Y Каждая точка на экране на самом деле представляет собой очень маленький прямоугольник («пиксел»). Количество точек (пикселов), умещающихся на экране по вертикали и горизонтали, называют разрешающей способностью. Разрешающая способность экрана в режиме VGAHi – 640х480. Это означает, что по горизонтали на экране умещается 640 точек, а по вертикали – 480. Точка в левом верхнем углу экрана имеет координаты (0,0). Координата Х любой точки экрана лежит в пределах от 0 до 639, а координата Y – в пределах от 0 до 479.

№ слайда 5 Пример 2. Program Primer_1; uses Graph; var Gd,Gm:Integer; begin Gd:=VGA; Gm:
Описание слайда:

Пример 2. Program Primer_1; uses Graph; var Gd,Gm:Integer; begin Gd:=VGA; Gm:=VGAHi; InitGraph (Gd,Gm,;..\bgi’); If GraphResult=grOk then begin Line (120,210,520,210); {Горизонтальный отрезок} Line (120,210,320,10);{Левый катет} Line (320,10,520,210);{Правый катет} Readln end; end. Изобразить треугольник с вершинами (320,10), (120,210), (520,210).

№ слайда 6 Довольно обидно работать на цветном мониторе только с черно-белыми изображени
Описание слайда:

Довольно обидно работать на цветном мониторе только с черно-белыми изображениями! BLACK = 0 Черный LIGHTBLUE = 9 Голубой BLUE = 1 Темно-синий LIGHTGREEN = 10 Салатовый GREEN = 2 Темно-зеленый LIGHTCYAN = 11 Светло-бирюзовый CYAN = 3 Бирюзовый LIGHTRED = 12 Розовый RED = 4 Красный LIGHTMAGENTA = 13 Малиновый MAGENTA = 5 Фиолетовый YELLOW = 14 Желтый BROWN = 6 Коричневый WHITE = 15 Белый LIGHTGRAY = 7 Светло-серый BLINK = 128 Мерцание символа DARKGRAY = 8 Темно-серый

№ слайда 7 Пример 3. (Самостоятельное решение) Изобразить тот же треугольник, что и в пр
Описание слайда:

Пример 3. (Самостоятельное решение) Изобразить тот же треугольник, что и в примере 2, но сделать стороны треугольника разноцветными. Нужный фрагмент программы

№ слайда 8 Пример 4. Program Primer_4; uses Graph; const CenterX=320; Center Y=240; var
Описание слайда:

Пример 4. Program Primer_4; uses Graph; const CenterX=320; Center Y=240; var Gd,Gm:Integer; i:integer; begin Gd:=VGA; Gm:=VGAHi; InitGraph (Gd,Gm,;..\bgi’); If GraphResult=grOk then begin For i:=0 to 23 do Circle (Centerx,CenterY,i*10); Readln end; end. Концентрические окружности Для рисования окружностей используется процедура Сircle с тремя целочисленными параметрами, задающими координаты центра окружности и радиус.

№ слайда 9 Пример 5. Program Primer_5; uses Graph; var grDriver:Integer; grMode:Integer;
Описание слайда:

Пример 5. Program Primer_5; uses Graph; var grDriver:Integer; grMode:Integer; I,x,y:Integer; PROCEDURE Rect (x,y,x1,y1:Integer); {Рисует прямоуггольник, у которого левый нижний угол имеет координаты (х, у), а правый верхний – (х1, у1)} Begin Line (x,y,x,y1); {} Line (x1,y,x1,y1); {} Line (x,y1,x1,y1); {} Line (x,y,x1,y) {} End; Begin GrDriver:=VGA; GrMode:=VGAHi; InitGraph (Gd,Gm,;..\bgi’); If GraphResult=grOk then begin For i:=1 to 15 do begin x:=i*30;y:=i*25;SetColor(i); Rect (x,y,x+50,y+60) end; Readln end; End.

№ слайда 10 Самостоятельное составление программ I-II уровень Построить семейство разноцв
Описание слайда:

Самостоятельное составление программ I-II уровень Построить семейство разноцветных, случайным образом расположенных окружностей. В решении этой задачи нам поможет функция определения случайного числа RANDOM. Следующие два оператора позволяют случайным образом вычислить координаты центра окружности Х и У: X:=RANDOM(GETMAXX); Y:=RANDOM(GETMAXY); Нарисовать окружность, например салатовую, нужно оператором CIRCLE с указанием координат центра и цвета: CIRCLE(X,Y,10); а оператор SETCOLOR закрашивает эту окружность случайным образом: SETCOLOR(RANDOM(16));

№ слайда 11 III – IV уровень Изобразить график функции y=cos(x). При изображении графика
Описание слайда:

III – IV уровень Изобразить график функции y=cos(x). При изображении графика функции необходимо иметь ввиду, что начало графических координат находится в левом верхнем углу экрана и что графические координаты принимают целые неотрицательные значения в диапазоне (0,maxx) и (0,maxy). Значения maxx и maxy для каждого режима можно определить, используя соответствующие функции. Таким образом, для получения «хорошего» графика необходимо выполнить поворот и масштабирование. Пусть, хmax – максимальное значение по оси х; ymax – максимальное значение по оси у; (x0,y0) – графические координаты центра - точки (0,0); (xg,yg) – графические координаты точки (х,у); mx – масштаб по оси х, т.е. величина Abs((xg-x0)/x);

№ слайда 12 Пример 3. Нужный фрагмент программы If GraphResult = grOk then begin SetColor
Описание слайда:

Пример 3. Нужный фрагмент программы If GraphResult = grOk then begin SetColor(LightMagenta); {Цвет – светло-сиреневый} Line (120,210,520,210); {горизонтальный отрезок} SetColor(LightCyan); {Цвет – светло-циановый} Line (120,210,320,10); {левый катет} SetColor(Green); {Цвет - зеленый} Line (320,10,520,210); {Правый катет} Readln end;

Самые низкие цены на курсы переподготовки

Специально для учителей, воспитателей и других работников системы образования действуют 50% скидки при обучении на курсах профессиональной переподготовки.

После окончания обучения выдаётся диплом о профессиональной переподготовке установленного образца с присвоением квалификации (признаётся при прохождении аттестации по всей России).

Обучение проходит заочно прямо на сайте проекта "Инфоурок", но в дипломе форма обучения не указывается.

Начало обучения ближайшей группы: 22 ноября. Оплата возможна в беспроцентную рассрочку (10% в начале обучения и 90% в конце обучения)!

Подайте заявку на интересующий Вас курс сейчас: https://infourok.ru


Краткое описание документа:

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

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

Общая информация

Номер материала: ДВ-341934
Курсы профессиональной переподготовки
124 курса

Выдаем дипломы установленного образца

Заочное обучение - на сайте «Инфоурок»
(в дипломе форма обучения не указывается)

Начало обучения: 22 ноября
(набор групп каждую неделю)

Лицензия на образовательную деятельность
(№5201 выдана ООО «Инфоурок» 20.05.2016)


Скидка 50%

от 13 800  6 900 руб. / 300 часов

от 17 800  8 900 руб. / 600 часов

Выберите квалификацию, которая должна быть указана в Вашем дипломе:
... и ещё 87 других квалификаций, которые Вы можете получить

Похожие материалы

Получите наградные документы сразу с 38 конкурсов за один орг.взнос: Подробнее ->>