end;
2: Ch:=#27; {Выход}
end; end; #80: begin
case TekDeystvie of
1: begin
TekDeystvie:= TekDeystvie+1; setcolor(15); outtextxy(240,240,’Выполнить’); setcolor(7); outtextxy(240,280,’Выход’);
end; 2: begin
TekDeystvie:= 1; setcolor(7);
outtextxy(240,240,’Выполнить’); setcolor(15); outtextxy(240,280,’Выход’);
end;
end; end;
end; until Ch=#27; closegraph;
end.
2.2. Лабораторные задания
Задание 1 – Составьте блок-схему алгоритма и напишите программу на языке Паскаль, которая, построит график функции y=f(x), а также выведет в таблицу точки, по которым строился этот график. Функция берется из табл. 1 по варианту, выданному преподавателем.
16
Таблица 1
Вариант |
Функция |
Интервал |
Шаг |
|
|
изменения X |
|
1 |
y=sin(x) |
[-1,1] |
0,1 |
2 |
y=cos(x) |
[-1,1] |
0,1 |
3 |
y=x2 |
[-10,10] |
1 |
4 |
y=x3 |
[-4,4] |
1 |
5 |
y=x2+1 |
[-10,10] |
1 |
6 |
y=x3+1 |
[-4,4] |
1 |
7 |
y=sin2(x) |
[-1,1] |
0,1 |
8 |
y=cos2(x) |
[-1,1] |
0,1 |
9 |
y=sin(x)+cos(x) |
[-1,1] |
0,1 |
10 |
y= x |
[0,100] |
10 |
Задание 2 – Составьте блок-схему алгоритма и напишите программу на языке Паскаль, которая, построит объемную круговую диаграмму. Отношение секторов круговой диаграммы берется из табл. 2 по варианту, выданному преподавателем.
Таблица 2
Вариант |
Сектор 1, град |
Сектор 2, град |
1 |
20 |
340 |
2 |
40 |
320 |
3 |
60 |
300 |
4 |
80 |
280 |
5 |
100 |
260 |
6 |
120 |
240 |
7 |
140 |
220 |
8 |
160 |
200 |
9 |
180 |
180 |
10 |
90 |
270 |
Задание 3 – Составьте блок-схему алгоритма и напишите программу на языке Паскаль реализующую механизм графического
17
интерфейса. Меню должно содержать 4 пункта – «Расчет», «Загрузить», «Сохранить», «Выход». Навигация по пунктам должна осуществляться клавишами вверх и вниз, при этом текущий пункт меню должен каким-либо образом выделяться (изменения цвета по отношению к другим пунктам, выделение цветным прямоугольником и т.п.). Активация выбранного пункта меню должна осуществлять клавишей Enter, при этом в служебной строке должна появляться надпись, которая будет соответствовать выбранному действию. Т.е., при выборе пункта «Загрузить» должна появиться надпись «Производится загрузка из файла», при выборе пункта «Расчет» должна появиться надпись «Производится расчет».
2.3. Контрольные вопросы для отчета работы
1.Перечислите основные процедуры и функции для изменения цвета линий и точек в графическом режиме языка Паскаль?
2.Перечислите основные процедуры и функции для изменения стиля заполнения в графическом режиме языка Паскаль?
3.Каково назначение и синтаксис стандартных процедур Bar и
Bar3D?
4.Каково назначение и синтаксис стандартных процедур
FillPoly и PieSlice?
5.Перечислите основные процедуры и функции для сохранения и вывода изображений в графическом режиме языка Паскаль?
6.Какая стандартная процедура языка Паскаль позволяет быстро и удобно рисовать графики функции в графическом режиме?
7.Какая стандартная процедура языка Паскаль позволяет быстро и удобно рисовать круговые диаграммы в графическом режиме?
8.Какие основные процедуры и функции языка Паскаль были использованы Вами при создании графического интерфейса?
18
БИБЛИОГРАФИЧЕСКИЙ СПИСОК
1.Фаронов Валерий Васильевич. Турбо Паскаль 7.0: Начальный курс: Учебное пособие / В.В. Фаронов. – 7-е изд., перераб. – М.: Нолидж, 2002. – 576 с.: ил.
2.Фаронов Валерий Васильевич. Турбо Паскаль: Учебное пособие. – СПб.: Питер, 2007. – 367 с.: ил.
3.Информатика: Базовый курс: Учеб. пособие для втузов / Под ред. С.В. Симоновича. СПб.: Питер, 2003. – 640 с.: ил.
4.Архангельский А.Я. Программирование в Delphi: Учебник по классическим версиям Delphi. – М.: Бином, 2006. – 1152 с.: ил.
ОГЛАВЛЕНИЕ
1. Лабораторная работа № 3. Изучение графических возможностей языка Паскаль……………………………………. 3 2. Лабораторная работа № 4. Построение графиков функций
и создание графического интерфейса на языке Pascal
с помощью модуля Graph………………………………………... 10 Библиографический список……………………………………… 19
19
ИНФОРМАЦИОННЫЕ ТЕХНОЛОГИИ
МЕТОДИЧЕСКИЕ УКАЗАНИЯ
к выполнению лабораторных работ № 3-4 для студентов направления 11.03.03 «Конструирование и технология электронных средств» (профиль «Проектирование и технология радиоэлектронных средств») всех форм обучения
Составители: Ромащенко Михаил Александрович Пирогов Александр Александрович Свиридова Ирина Владимировна
В авторской редакции
Компьютерный набор М. А. Ромащенко
Подписано к изданию 11.11.2021. Уч.-изд. л. 1,3.
ФГБОУ ВО «Воронежский государственный технический университет»
394026 Воронеж, Московский просп., 14
20