Программирование и алгоритмические языки
.pdf
ЛАБОРАТОРНАЯ РАБОТА № 9
СОЗДАНИЕ СИСТЕМЫ МЕНЮ В СРЕДЕ ПРОГРАММИРОВАНИЯ TURBO PASCAL 7.0
ГРУППА БАк-1-12
СОДЕРЖАНИЕ РАБОТЫ
1.Изучить возможности среды программирования Turbo Pascal 7.0, которые позволяют использовать в программе систему меню.
2.Выполнить анализ задания в соответствии с вариантом.
3.Составить программу на языке программирования Turbo Pascal 7.0 для выполнения поставленного задания.
ПОРЯДОК ВЫПОЛНЕНИЯ ЛАБОРАТОРНОЙ РАБОТЫ
1.Вывести на экран монитора систему меню, расположенную горизонтально или вертикально. Перед выводом системы меню необходимо вывести заставку.
2.В любой момент времени должен быть выбран только один элемент меню, который должен выделяться с помощью другого цвета, повышенной или пониженной интенсивности свечения, выделения первой буквы в названии или иным способом.
3.Необходимо иметь возможность перемещаться по пунктам горизонтальной системы меню с помощью клавиш <Стрелка влево> и <Стрелка вправо>, а по пунктам вертикальной системы меню с помощью клавиш <Стрелка вверх> и <Стрелка вниз>.
4.Необходимо иметь возможность выбора элемента меню нажатием на клавишу <Enter> или какую-либо другую аналогичную клавишу.
5.Необходимо иметь возможность выхода из системы меню нажатием на клавишу <Esc> или какую-либо другую аналогичную клавишу.
ВАРИАНТЫ ЗАДАНИЙ
№ |
Заставка |
Элементы меню |
Тип меню |
Информационное |
|
п/п |
сообщение |
||||
|
|
|
|||
|
|
|
|
|
|
|
|
Понедельник |
|
|
|
1 |
Выбор дня недели |
Среда |
Горизонтальное |
“Выбран день недели |
|
|
|
Пятница |
|
<…>” |
|
|
|
Воскресенье |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
№ |
Заставка |
Элементы меню |
Тип меню |
Информационное |
|
п/п |
сообщение |
||||
|
|
|
|||
|
|
|
|
|
|
|
Выбор метода |
Эйлера |
|
|
|
2 |
решения |
Рунге-Кутта |
Вертикальное |
“Выбран элемент |
|
дифференциальных |
Адамса |
меню <…>” |
|||
|
уравнений |
Мерсона |
|
|
|
|
|
|
|
|
|
|
|
Асинхронные |
|
“Выбран тип |
|
|
Выбор типа |
Синхронные |
|
||
3 |
Горизонтальное |
электродвигателей |
|||
электродвигателей |
Шаговые |
||||
|
|
Гистерезисные |
|
<…>” |
|
|
|
|
|
||
|
|
|
|
|
|
|
Выбор |
Расход |
|
“Выбран |
|
|
Уровень |
|
|||
4 |
технологического |
Вертикальное |
технологический |
||
Влажность |
|||||
|
параметра |
|
параметр <…>” |
||
|
Температура |
|
|||
|
|
|
|
||
|
|
|
|
|
|
|
|
Word 2000 |
|
“Выбрано |
|
|
Выбор программного |
Excel 2000 |
|
||
5 |
Горизонтальное |
программное средство |
|||
|
средства |
PowerPoint 2000 |
|
<…>” |
|
|
|
Access 2000 |
|
||
|
|
|
|
||
|
|
|
|
|
|
|
|
15-дюймовый |
|
|
|
6 |
Выбор типа монитора |
17- дюймовый |
Вертикальное |
“Выбран тип монитора |
|
|
|
19- дюймовый |
|
<…>” |
|
|
|
21- дюймовый |
|
|
|
|
|
|
|
|
|
|
Выбор типа |
Квадрат |
|
“Выбран тип |
|
|
Треугольник |
|
|||
7 |
геометрической |
Горизонтальное |
геометрической |
||
Окружность |
|||||
|
фигуры |
|
фигуры <…>” |
||
|
Ромб |
|
|||
|
|
|
|
||
|
|
|
|
|
|
|
|
Диск A |
|
|
|
8 |
Выбор магнитного |
Диск B |
Вертикальное |
“Выбран магнитный |
|
|
диска |
Диск C |
|
диск <…>” |
|
|
|
Диск D |
|
|
|
|
|
|
|
|
№ |
Заставка |
Элементы меню |
Тип меню |
Информационное |
|
п/п |
сообщение |
||||
|
|
|
|||
|
|
|
|
|
|
|
|
Супер-ЭВМ |
|
|
|
9 |
Выбор типа ЭВМ |
Большие ЭВМ |
Горизонтальное |
“Выбран тип ЭВМ |
|
|
|
Малые ЭВМ |
|
<…>” |
|
|
|
ПЭВМ |
|
|
|
|
|
|
|
|
|
|
|
Физика |
|
|
|
10 |
Выбор учебного |
Математика |
Вертикальное |
“Выбран учебный |
|
предмета |
Химия |
предмет <…>” |
|||
|
|
||||
|
|
Биология |
|
|
|
|
|
|
|
|
|
|
|
Электрическая |
|
|
|
11 |
Выбор вида схемы |
Гидравлическая |
Горизонтальное |
“Выбран вид схемы |
|
|
|
Пневматическая |
|
<…>” |
|
|
|
Кинематическая |
|
|
|
|
|
|
|
|
|
|
Выбор метода |
Прямоугольников |
|
“Выбран метод |
|
|
Трапеций |
|
|||
12 |
численного |
Вертикальное |
численного |
||
Симпсона |
|||||
|
интегрирования |
|
интегрирования <…>” |
||
|
Гаусса |
|
|||
|
|
|
|
||
|
|
|
|
|
|
|
|
Резистор |
|
“Выбран тип |
|
|
Выбор типа |
Конденсатор |
|
||
13 |
Горизонтальное |
радиокомпонента |
|||
радиокомпонента |
Трансформатор |
||||
|
|
Микросхема |
|
<…>” |
|
|
|
|
|
||
|
|
|
|
|
|
|
Выбор типа |
Вольтметр |
|
“Выбран тип |
|
|
Амперметр |
|
|||
14 |
измерительного |
Вертикальное |
измерительного |
||
Омметр |
|||||
|
прибора |
|
прибора <…>” |
||
|
Осциллограф |
|
|||
|
|
|
|
||
|
|
|
|
|
|
|
Выбор |
Реле |
|
“Выбрано |
|
|
Тумблер |
|
|||
15 |
электрического |
Горизонтальное |
электрическое |
||
Контактор |
|||||
|
устройства |
|
устройство <…>” |
||
|
Пускатель |
|
|||
|
|
|
|
||
|
|
|
|
|
№ |
Заставка |
Элементы меню |
Тип меню |
Информационное |
|
п/п |
сообщение |
||||
|
|
|
|||
|
|
|
|
|
|
|
|
Электрический |
|
|
|
16 |
Выбор элемента |
Механический |
Вертикальное |
“Выбран элемент |
|
Гидравлический |
<…>” |
||||
|
|
|
|||
|
|
Пневматический |
|
|
|
|
|
|
|
|
|
|
|
Емкостной |
|
|
|
17 |
Выбор типа датчика |
Индукционный |
Горизонтальное |
“Выбран тип датчика |
|
|
|
Резисторный |
|
<…>” |
|
|
|
Механический |
|
|
|
|
|
|
|
|
|
|
|
Дизъюнкция |
|
|
|
18 |
Выбор логической |
Конъюнкция |
Вертикальное |
“Выбрана логическая |
|
|
функции |
Эквивалентность |
|
функция <…>” |
|
|
|
отрицание |
|
|
|
|
|
|
|
|
|
|
|
A - сигнализация |
|
|
|
19 |
Выбор режима |
R - регистрация |
Горизонтальное |
“Выбран режим |
|
|
работы |
I - показание |
|
работы <…>” |
|
|
|
C - регулирование |
|
|
|
|
|
|
|
|
|
|
|
Структурная |
|
|
|
20 |
Выбор типа схемы |
Функциональная |
Вертикальное |
“Выбран тип схемы |
|
Принципиальная |
<…>” |
||||
|
|
Соединений |
|
|
|
|
|
|
|
|
|
|
|
80286 |
|
“Выбран тип |
|
|
Выбор типа |
80386 |
|
||
21 |
Горизонтальное |
микропроцессора |
|||
микропроцессора |
80486 |
||||
|
|
Pentium |
|
<…>” |
|
|
|
|
|
||
|
|
|
|
|
|
|
|
Задача № 1 |
|
|
|
22 |
Выбор номера задачи |
Задача № 2 |
Вертикальное |
“Выбран номер задачи |
|
|
|
Задача № 3 |
|
<…>” |
|
|
|
Задача № 4 |
|
|
|
|
|
|
|
|
№ |
Заставка |
Элементы меню |
Тип меню |
Информационное |
|
п/п |
сообщение |
||||
|
|
|
|||
|
|
|
|
|
|
|
Выбор формы |
Прямоугольные |
|
“Выбрана форма |
|
|
Треугольные |
|
|||
23 |
электрических |
Горизонтальное |
электрических |
||
Гармонические |
|||||
|
колебаний |
Пилообразные |
|
колебаний <…>” |
|
|
|
|
|
||
|
|
|
|
|
|
|
|
Хорд |
|
“Выбран метод |
|
|
Выбор метода |
Касательных |
|
||
24 |
Вертикальное |
решения уравнения |
|||
решения уравнения |
Комбинированный |
||||
|
|
Перебора |
|
<…>” |
|
|
|
|
|
||
|
|
|
|
|
|
|
|
Немецкий |
|
|
|
25 |
Выбор иностранного |
Английский |
Горизонтальное |
“Выбран иностранный |
|
|
языка |
Французский |
|
язык <…>” |
|
|
|
Итальянский |
|
|
|
|
|
|
|
|
|
|
|
Белый |
|
|
|
26 |
Выбор цвета |
Красный |
Вертикальное |
“Выбран цвет <…>” |
|
Синий |
|||||
|
|
|
|
||
|
|
Зеленый |
|
|
|
|
|
|
|
|
|
|
|
Усилительное |
|
“Выбран тип |
|
|
Выбор типа |
Апериодическое |
|
||
27 |
Горизонтальное |
элементарного звена |
|||
элементарного звена |
Интегрирующее |
||||
|
|
Дифференцирующее |
|
<…>” |
|
|
|
|
|
||
|
|
|
|
|
|
|
Выбор типа |
Диод |
|
“Выбран тип |
|
|
Транзистор |
|
|||
28 |
полупроводникового |
Вертикальное |
полупроводникового |
||
Тиристор |
|||||
|
прибора |
|
прибора <…>” |
||
|
Стабилитрон |
|
|||
|
|
|
|
||
|
|
|
|
|
|
|
Выбор |
Усилитель |
|
“Выбран |
|
|
Фильтр |
|
|||
29 |
электрического |
Горизонтальное |
электрический |
||
Модулятор |
|||||
|
элемента |
|
элемент <…>” |
||
|
Делитель |
|
|||
|
|
|
|
||
|
|
|
|
|
№ |
Заставка |
Элементы меню |
Тип меню |
Информационное |
|
п/п |
сообщение |
||||
|
|
|
|||
|
|
|
|
|
|
|
Выбор |
Принтер |
|
“Выбрано |
|
|
Сканер |
|
|||
30 |
периферийного |
Вертикальное |
периферийное |
||
Монитор |
|||||
|
оборудования |
|
оборудование <…>” |
||
|
Клавиатура |
|
|||
|
|
|
|
||
|
|
|
|
|
|
|
|
Паскаль |
|
“Выбран язык |
|
|
Выбор языка |
Фортран |
|
||
31 |
Горизонтальное |
программирования |
|||
программирования |
Бейсик |
||||
|
|
Си |
|
<…>” |
|
|
|
|
|
||
|
|
|
|
|
|
|
|
Январь |
|
|
|
32 |
Выбор месяца |
Апрель |
Вертикальное |
“Выбран месяц <…>” |
|
Июль |
|||||
|
|
|
|
||
|
|
Октябрь |
|
|
|
|
|
|
|
|
|
|
|
Весна |
|
|
|
33 |
Выбор сезона |
Лето |
Горизонтальное |
“Выбран сезон <…>” |
|
Осень |
|||||
|
|
|
|
||
|
|
Зима |
|
|
|
|
|
|
|
|
|
|
Выбор типа |
CGA |
|
“Выбран тип |
|
|
EGA |
|
|||
34 |
графического |
Вертикальное |
графического |
||
VGA |
|||||
|
адаптера |
|
адаптера <…>” |
||
|
SVGA |
|
|||
|
|
|
|
||
|
|
|
|
|
|
|
|
Перфокарта |
|
|
|
35 |
Выбор носителя |
Перфолента |
Горизонтальное |
“Выбран носитель |
|
|
информации |
Магнитный диск |
|
информации <…>” |
|
|
|
Оптический диск |
|
|
|
|
|
|
|
|
|
|
|
Гидравлический |
|
|
|
36 |
Выбор типа |
Пневматический |
Вертикальное |
“Выбран тип |
|
|
усилителя |
Магнитный |
|
усилителя <…>” |
|
|
|
Электронный |
|
|
|
|
|
|
|
|
ЛАБОРАТОРНАЯ РАБОТА № 10 ТЕКСТОВЫЕ, ТИПИЗИРОВАННЫЕ И НЕТИПИЗИРОВАННЫЕ ФАЙЛЫ В СРЕДЕ
ПРОГРАММИРОВАНИЯ TURBO PASCAL 7.0
ГРУППА БАк-1-12
СОДЕРЖАНИЕ РАБОТЫ
1.Изучить возможности среды программирования Turbo Pascal 7.0, которые позволяют использовать в программе тестовые, типизированные и нетипизированные файлы.
2.Выполнить анализ задания в соответствии с вариантом.
3.Составить программу на языке программирования Turbo Pascal 7.0 для выполнения поставленного задания.
ПОРЯДОК ВЫПОЛНЕНИЯ ЛАБОРАТОРНОЙ РАБОТЫ
1.Создать или открыть текстовый (типизированный, нетипизированный) файл.
2.Выполнить над текстовым (типизированным, нетипизированным) файлом необходимые преобразования или выполнить необходимые вычисления.
3.Вывести на экран монитора результаты преобразований или вычислений.
ВАРИАНТЫ ЗАДАНИЙ
№
Задание
п/п
Из типизированного файла, который содержит несколько булевских (логических)
1значений, вывести на экран монитора булевское (логическое) значение с определенным порядковым номером.
Ввести M различных значений аргумента x, вычислить для каждого из них
2значение выражения f x cos 6 3x5 и записать их в текстовый файл.
Объявить какой-либо заранее созданный файл как нетипизированный и вывести
3все четные учетверенные слова (одно учетверенное слово равно восьми байтам) из этого файла на экран монитора.
4Заданы два текстовых файла. Поменять содержимое этих файлов местами, при этом названия файлов должны сохраниться.
№
Задание
п/п
Создать типизированный файл, который содержит несколько булевских
5(логических) значений, после чего вывести эти булевские (логические) значения из типизированного файла на экран монитора по одному байту.
6В текстовом файле определить максимальную длину строки.
7Пусть имеется текстовый файл, содержащий несколько целых чисел. Открыть этот текстовый файл и каждое из чисел возвести в квадрат.
8Записать в типизированный файл несколько целых чисел, после чего вывести эти целые числа из типизированного файла на экран монитора.
9Задан один отдельный символ. Определить, сколько раз встречается этот символ в текстовом файле.
10Из типизированного файла, который содержит несколько целых чисел, вывести на экран монитора целое число с определенным порядковым номером.
Ввести N различных значений аргумента x, вычислить для каждого из них
11значение выражения f x x2 1 и записать их в текстовый файл.
12Объявить какой-либо заранее созданный файл как нетипизированный и вывести все нечетные байты из этого файла на экран монитора.
13Задан текстовый файл. Выполнить копирование этого файла из одного места в другое.
Создать типизированный файл, который содержит несколько целых чисел, после
14чего вывести эти целые числа из типизированного файла на экран монитора по одному байту.
15В текстовом файле определить количество всех строк и количество всех символов.
№
Задание
п/п
Пусть имеется текстовый файл, содержащий несколько вещественных чисел.
16Открыть этот текстовый файл и вычислить сумму всех вещественных чисел.
Записать в типизированный файл несколько строк текста, после чего вывести эти
17строки текста из типизированного файла на экран монитора.
Задана строка текста. Определить, сколько раз встречается эта строка текста в
18текстовом файле.
Из типизированного файла, который содержит несколько строк текста, вывести на
19экран монитора строку текста с определенным порядковым номером.
Ввести M различных значений аргумента x, вычислить для каждого из них
20значение выражения f x sin 1 2x3 и записать их в текстовый файл.
Объявить какой-либо заранее созданный файл как нетипизированный и вывести
21все четные слова (одно слово равно двум байтам) из этого файла на экран монитора.
22Заданы два текстовых файла. Поменять эти файлы местами.
Создать типизированный файл, который содержит несколько строк текста, после
23чего вывести эти строки текста из типизированного файла на экран монитора по одному байту.
24В текстовом файле определить минимальную длину строки.
25Пусть имеется текстовый файл, содержащий несколько целых чисел. Открыть этот текстовый файл и каждое из чисел возвести в куб.
26Записать в типизированный файл несколько вещественных чисел, после чего вывести эти вещественные числа из типизированного файла на экран монитора.
№
Задание
п/п
Задан один отдельный символ. Определить, сколько раз встречается этот символ в
27каждой строке текстового файла.
Из типизированного файла, который содержит несколько вещественных чисел,
28вывести на экран монитора вещественное число с определенным порядковым номером.
Ввести N различных значений аргумента x, вычислить для каждого из них
29значение выражения f x 5x2 8 и записать их в текстовый файл.
Объявить какой-либо заранее созданный файл как нетипизированный и вывести
30все нечетные удвоенные слова (одно удвоенное слово равно четырем байтам) из этого файла на экран монитора.
31Задан текстовый файл. Выполнить перемещение этого файла из одного места в другое.
Создать типизированный файл, который содержит несколько вещественных
32чисел, после чего вывести эти вещественные числа из типизированного файла на экран монитора по одному байту.
В текстовом файле определить количество всех строк и количество символов в
33каждой строке.
Пусть имеется текстовый файл, содержащий несколько вещественных чисел.
34Открыть этот текстовый файл и вычислить произведение всех вещественных чисел.
Записать в типизированный файл несколько булевских (логических) значений,
35после чего вывести эти булевские (логические) значения из типизированного файла на экран монитора.
Задана строка текста. Определить, сколько раз встречается эта строка текста в
36каждой строке текстового файла.