- •Информатика
- •Лабораторный практикум
- •По программированию
- •На Турбо-Паскале
- •Содержание
- •Предисловие
- •Общая схема выполнения лабораторной работы
- •Лабораторная работа № 1
- •Var r,d: real; {раздел описаний переменных может
- •Блок-схема алгоритма
- •Текст программы
- •Результат расчета
- •Варианты заданий
- •Лабораторная работа № 2
- •If Pr then {здесь Pr – логическая переменная,}
- •Разбор контрольного варианта Задание
- •Блок-схема алгоритма
- •Текст программы
- •Результаты расчетов
- •Варианты заданий
- •Лабораторная работа № 3
- •Общие пояснения
- •Разбор контрольного варианта Задание
- •Алгоритм
- •Текст программы
- •Vvod: writeln('Сколько будет чисел?');
- •Варианты заданий
- •Лабораторная работа № 4
- •Задачи лабораторной работы Вопросы, изучаемые в работе
- •Задание (общее ко всем вариантам)
- •Требования к программе
- •Содержание программы
- •Общие пояснения
- •Var Massiv1,Nmbs:IntMasMax; {завели 2 целочисл. Массива}
- •Разбор контрольного варианта Задание.
- •Текст программы
- •Результаты работы
- •Варианты заданий
- •Лабораторная работа № 5
- •Общие пояснения
- •Var {здесь выделяется место под все массивы }
- •Разбор контрольного варианта Задание
- •Формирование таблицы идентификаторов
- •Алгоритм
- •Текст программы.
- •Содержимое файла результатов umnik5.Res
- •Варианты заданий
- •Лабораторная работа n 6
- •Задачи лабораторной работы Вопросы, изучаемые в работе
- •Задание (общее ко всем вариантам)
- •Требования к программе
- •Содержание программы
- •Общие пояснения
- •Разбор контрольного варианта Задание
- •Рассмотрение метода решения
- •Алгоритм
- •Текст программы.
- •Vvod_eps:writeln('введите минимальный размер слагаемого);
- •Результаты расчета
- •Варианты заданий
- •Лабораторная работа n 7
- •Задачи лабораторной работы Вопросы, изучаемые в работе
- •Задание (общее ко всем вариантам).
- •Требования к программе и отчету по работе
- •Содержание программы.
- •Пояснения к лабораторной работе Общие пояснения к использованию процедур и функций.
- •Механизм параметров
- •Разбор контрольного варианта Задание
- •Б Рисунок 7. Алгоритм 31-го варианталок-схема алгоритма Текст программы.
- •Лабораторная работа n 8
- •Алгоритмы построения графиков на экране
- •Стандартный модуль работы с графическим экраном Graph
- •Разбор контрольного варианта № 31 Задание
- •Алгоритм
- •Разбор контрольного варианта № 32 Задание
- •X,y:mas; { текущие значения переменных х иY}
- •Xmin,Xmax,t,tmin,tmax, { минимальное и максимальное значения х на графике }
- •Imin,Imax, { координаты экрана, соответствующиеYminиYmax}
- •Варианты заданий
- •Лабораторная работа № 9
- •Задачи лабораторной работы Вопросы, изучаемые в работе
- •Задание (общее ко всем вариантам)
- •Требования к программе
- •Содержание программы
- •Общие пояснения
- •Односвязные списки
- •Двусвязные списки
- •Нульсвязные списки
- •Описание файлов с данными
- •Inc(I); { стандартная процедура увеличения на 1 }
- •Разбор контрольного варианта Задание
- •Содержание программы
- •Алгоритм
- •Текст программы
- •IfBegthen{ если добавляем в начало }
- •If Beg then { если удаление из начала }
- •Варианты заданий
- •Литература
- •Приложение а. Система меню и команды Турбо-Паскаля Меню системы программирования Турбо-Паскаль
- •Главное меню
- •Опции главного меню
- •Локальные меню
- •Основные команды встроенного редактора текста
- •Приложение б. Сообщения об ошибках
- •Сообщения об ошибках на шаге выполнения
- •Приложение в. Описание числовых файлов для лабораторных работ
- •I,j : integer; {I- счетчик элементов массива, j - номер символа в файле }
- •Приложение г. Таблица ascii-кодов (с альтернативной кодировкой)
Разбор контрольного варианта № 31 Задание
Построить график функции Y=exp(X) для интервала X от –1 до 2, нанести на график размеченные оси координат и сделать подпись (название функции).
Дополнительные требования: график изобразить толстой штриховой линией красного цвета на белом фоне, координатные оси (толстая линия) и разметка (тонкая линия) – черного (темно-серого) цвета, подпись – синего цвета под графиком посередине.
Программу составить для EGA и VGA адаптеров (универсальную). Драйвер графического адаптера (с именем EGAVGA.BGI) находится в каталоге D:\TP6\BGI.
Условия, принятые из соображений дизайна:
График будет занимать 60% ширины и высоты экрана. Разметку проводим через 0.5 по Х и через 1.0 по Y. График рисуем процедурой LineTo, с шагом 0.2 по оси X.
Таблица идентификаторов
Таблица 28. Идентификаторы задачи 31-го варианта
|
Имя |
Тип |
Размер, (байт) |
Назначение |
|
Graph_work |
Имя программы |
- |
Построение графика функции |
|
Graph |
Имя модуля |
- |
Стандартные графические подпрограммы |
|
Crt |
" |
- |
Стандартные подпрограммы работы с консолью |
|
|
" |
- |
Стандартные подпрограммы работы с принтером |
|
X |
Веществен. |
6 |
Текущее значение аргумента |
|
Y |
" |
" |
Текущее значение функции |
|
Xmin |
" |
" |
Минимальное значение аргумента |
|
Xmax |
" |
" |
Максимальное значение аргумента |
|
Ymin |
" |
" |
Минимальное значение функции |
|
Ymax |
" |
" |
Максимальное значение функции |
|
DeltaX |
" |
" |
Диапазон изменения аргумента |
|
DeltaY |
" |
" |
Диапазон изменения функции |
|
Dx |
" |
" |
Шаг аргумента для расчета графика функции |
|
Dxs |
" |
" |
Шаг разметки оси Х |
|
Dys |
" |
" |
Шаг разметки оси Y |
|
Part |
" |
" |
Доля экрана, занимаемая графиком |
|
Pole |
" |
" |
Размер полей вокруг графика в долях экрана |
|
Mx |
" |
" |
Коэффициент пересчета Х в J |
|
My |
" |
" |
Коэффициент пересчета Y в I |
|
I |
Целое |
2 |
Горизонтальная координата экрана |
|
J |
" |
" |
Вертикальная координата экрана |
|
Imin |
" |
" |
Нижняя граница графика на экране |
|
Imax |
" |
" |
Верхняя граница графика на экране |
|
Jmin |
" |
" |
Левая граница графика на экране |
|
Jmax |
" |
" |
Правая граница графика на экране |
|
JAll |
" |
" |
Размер экрана по Х в пикселах |
|
Iall |
" |
" |
Размер экрана по Y в пикселях |
|
J0 |
" |
" |
Координата оси Y на экране |
|
I0 |
" |
" |
Координата оси Х на экране |
|
DeltaJ |
" |
" |
Размер рисунка по Х |
|
DeltaI |
" |
" |
Размер рисунка по Y |
|
Nx |
" |
" |
Шаг между рисками оси Х в пикселях |
|
Ny |
" |
" |
Шаг между рисками оси Y в пикселях |
|
Riska |
Строка |
6 |
Подпись текущей риски оси |
|
GraphDrv |
Целое |
2 |
Тип графического драйвера |
|
GraphMode |
" |
" |
Номер графического режима |
|
Code |
беззнаковое |
" |
Код завершения процедуры инициализ. граф. |
|
InitGraph |
Имя процедуры |
- |
Инициализация графического режима |
|
GraphResult |
Имя функции |
- |
Возвращает код завершения граф. процедуры |
|
ClearDevice |
Имя процедуры |
- |
Очистка экрана заданным цветом фона |
|
Halt |
Имя процедуры |
- |
Останов (завершение) программы |
|
SetBkColor |
Имя процедуры |
- |
Установка цвета фона |
|
SetColor |
Имя процедуры |
- |
Установка цвета |
|
SetLineStyle |
Имя процедуры |
- |
Установка типа линии |
|
SetTextStyle |
Имя процедуры |
- |
Установка стиля текста |
|
SetTextJustify |
Имя процедуры |
- |
Установка способа размещения текста |
|
GetMaxX |
Имя функции |
- |
Возвращает размер экрана по Х |
|
GetMaxY |
Имя функции |
- |
Возвращает размер экрана по Y |
|
Round |
Имя функции |
- |
Округляет вещественный аргумент в целое |
|
MoveTo |
Имя процедуры |
- |
Переход в заданную точку экрана |
|
LineTo |
Имя процедуры |
- |
Проведение отрезка в заданную точку |
|
Line |
Имя процедуры |
- |
Проведение отрезка |
|
OutTextXY |
Имя процедуры |
- |
Вывод текста |
|
Str |
Имя процедуры |
- |
Преобразование числа в строку с его изображен. |
|
KeyPressed |
Имя функции |
- |
Возвращает TRUE, если нажата клавиша |
|
CloseGraph |
Имя процедуры |
- |
Закрытие графического режима |
|
Pr |
Имя процедуры |
- |
Копирование графического экрана на принтер |