МИНИСТЕРСТВО НАУКИ И ВЫСШЕГО ОБРАЗОВАНИЯ РОССИЙСКОЙ ФЕДЕРАЦИИ
Федеральное государственное бюджетное образовательное учреждение высшего образования
«Воронежский государственный технический университет»
Кафедра конструирования и производства радиоаппаратуры
ИНФОРМАЦИОННЫЕ ТЕХНОЛОГИИ
МЕТОДИЧЕСКИЕ УКАЗАНИЯ
квыполнению лабораторных работ № 3-4 для студентов направления
11.03.03«Конструирование и технология электронных средств»
(профиль «Проектирование и технология радиоэлектронных средств») всех форм обучения
Воронеж 2021
УДК 004.43(07) ББК 16.2я7
Составители:
д-р техн. наук М. А. Ромащенко, канд. техн. наук А. А. Пирогов, ассистент И. В. Свиридова
Информационные технологии: методические указания к выполнению лабораторных работ № 3-4 для студентов направления 11.03.03 «Конструирование и технология электронных средств» (профиль «Проектирование и технология радиоэлектронных средств») всех форм обучения / ФГБОУ ВО «Воронежский государственный технический университет»; сост. М. А. Ромащенко, А. А. Пирогов, И. В. Свиридова. Воронеж: Изд-во ВГТУ, 2021. 20 с.
Методические указания содержат теоретические сведения, задания и методики выполнения лабораторных работ № 3-4 по дисциплине «Информационные технологии».
Предназначены для студентов первого курса очной и заочной форм обучения.
Методические указания подготовлены в электронном виде и содержатся в файле ЛР3-4_ИТ.pdf.
Табл. 2. Библиогр.: 4 назв.
УДК 004.43(07) ББК 16.2я7
Рецензент - О. Ю. Макаров, д-р техн. наук, проф. кафедры конструирования и производства радиоаппаратуры ВГТУ
Издается по решению редакционно-издательского совета Воронежского государственного технического университета
2
1.ЛАБОРАТОРНАЯ РАБОТА № 3
ИЗУЧЕНИЕ ГРАФИЧЕСКИХ ВОЗМОЖНОСТЕЙ ЯЗЫКА ПАСКАЛЬ
Цель работы: изучить назначение модуля Graph языка Паскаль. Закрепить знания об основных процедурах и функциях работы с графикой на языке Паскаль. Освоить методы изображения простейших геометрических фигур и вывода текста в графическом режиме.
Время работы: 8 часов.
1.1. Домашние задания и методические указания по их выполнению
Задание 1 – изучить назначение модуля Graph и графического режима языка Паскаль.
В состав Паскаля включена мощная библиотека графических подпрограмм Graph. Библиотека содержит в общей сложности более 50 процедур и функций, предоставляющих программисту самые разнообразные средства управления графическим экраном.
Стандартное состояние компьютера в момент запуска программы из среды ТурбоПаскаль соответствует текстовому режиму. Для использования графических средств необходимо определенным образом инициировать графический режим работы видеоадаптера. Это достигается подключением нужного графического драйвера. Обычно они располагаются в папке BGI с расширением BGI, например, EGAVGA.BGI
Процедура InitGraph инициирует графический режим работы адаптера. Заголовок процедуры имеет вид:
procedure InitGraph(var Driver, Mode: Integer; Path: String);
где Driver определяет тип графического драйвера, а Mode
3
задает режим его работы; Path – указывает путь где расположен драйвер.
Если программа рассчитана на работу с любым адаптером, то обращение к процедуре выполняется с требованием автоматического определения типа драйвера
Driver:=Detect; InitGraph(Driver, Mode, ``);
Path можно не указывать, при условии когда нужный драйвер находится в текущем каталоге.
Процедура CloseGraph завершает работу адаптера в графическом режиме и восстанавливает текстовый режим работы.
В графическом режиме указатель текущей позиции на экране, в отличии от текстового курсора, невидим. Положение и любая координата на графическом экране задается относительно левого верхнего угла, имеющего координаты 0,0.
Задание 2 – закрепить знания об основных процедурах и функциях работы с графикой на языке Паскаль.
Функции GetMaxX и GetMaxY возвращают значения содержащие максимальные координаты экрана в текущем режиме по горизонтали и вертикали.
Процедура SetViewPort устанавливает прямогольное окно на графическом экране. Заголовок процедуры имеет вид:
procedure SetViewPort(X1,Y1,X2,Y2: Integer; ClipOn: Boolean); X1,Y1 – координаты левого верхнего угла окна, X2,Y2 – правого нижнего. ClipOn определяет отсечку не умещающихся в окне элементов изображения – True элементы отсекаются, False –
границы окна игнорируются.
Процедура MoveTo устанавливает новое текущее положение указателя. Заголовок процедуры имеет вид:
procedure MoveTo(X,Y: Integer);
Процедура MoveRel устанавливает новое положение указателя в относительных единцах. Заголовок процедуры имеет вид:
procedure MoveRel(DX,DY: Integer);
4
Процедура ClearDevice очищает графический экран. После обращения к процедуре указатель устанавливается в левый верхний угол экрана.
Процедура ClearViewPort очищает графическое окно, а если оно не определено то весь экран. После обращения к процедуре указатель устанавливается в левый верхний угол экрана.
Процедура GetAspectRatio возвращает два числа, позволяющих оценить соотношение сторон экрана. Заголовок процедуры имеет вид:
procedure GetAspectRatio(var X,Y: Word);
Значения этих переменных позволяют вычислить отношение сторон графического экрана в пикселях и использовать его при построении правильных геометрических фигур.
Пример построение правильного квадрата со стороной L пикселов по вертикали
GetAspectRatio(Xasp,Yasp);
Rectangle(X1, Y1, X1+L*round(Yasp/Xasp), Y1+L);
Задание 3 – закрепить знания о процедурах и функциях рисования линий и точек на языке Паскаль.
Процедура PutPixel выводит заданным цветом точку по указанным координатам. Заголовок процедуры имеет вид:
procedure PutPixel(X,Y: Integer; Color: Word);
Процедура Line вычерчивает линию с указанными координатами начала и конца. Заголовок процедуры имеет вид:
procedure Line(X1,Y1,X2,Y2: Integer);
гд X1,Y1 – координаты начала линии, а X2,Y2 – конца. Процедура LineTo вычерчивает линию от текущего положения
указателя до положения, заданного новыми координатами. Заголовок процедуры имеет вид:
procedure LineTo(X,Y: Integer);
Процедура LineRel вычерчивает линию от текущего положения указателя до положения, заданного приращениями его координат. Заголовок процедуры имеет вид:
5