- •Міністерство освіти і науки, молоді та спорту України
- •Лабораторная работа №1. Разработка программы с линейным алгоритмом выполнения.
- •1.1. Цель работы
- •1.2. Задание на лабораторную работу
- •1.3. Требования к программе
- •1.4. Порядок выполнения работы
- •1.5. Правила работы с методическими указаниями
- •1.6. Разработка программы в интегрированной среде TurboPascal
- •1.6.1. Почему Pascal?
- •1.6.2. Порядок создания программы
- •Запуск интегрированной среды TurboPascal
- •Назначение пунктов меню TurboPascal
- •Подготовка нового текста программы
- •Описание клавиш редактирования текста
- •Сохранение текста программы в файл
- •Загрузка текста программы из файла
- •Запуск программы на выполнение
- •Просмотр результатов работы программы
- •Выход из среды Turbo Pascal
- •1.6.3. Использование помощи в среде TurboPascal
- •1.7. Сведения по структуре и операторам Pascal-программы
- •1.8. Пример действий по подготовке и выполнению программы
- •Пример работы описанной выше программы
- •1.9. Ошибки компиляции
- •1.10. Варианты заданий
- •1.11. Содержание отчета
- •7) Входные данные и результаты работы программы.
- •8) Ответы на контрольные вопросы.
- •9) Выводы по проделанной работе.
- •1.12. Контрольные вопросы
- •Лабораторная работа №2. Разработка программы с разветвленной структурой
- •2.6. Справочная информация по операторам ветвления языка Pascal
- •2.6.1. Оператор if
- •2.6.2. Константы
- •2.6.3. Оператор выбора case
- •2.6.4. Оператор goto
- •2.7. Пример программы с разветвленной структурой
- •2.8. Варианты заданий
- •2.9. Содержание отчета (см. Пункт 1.11)
- •2.10. Контрольные вопросы
- •Лабораторная работа №3. Разработка циклической программы с известным количеством повторений
- •3.5. Оператор цикла for
- •Возведение в степень
- •3.6. Тип данных «массив» – объявление и использование
- •3.7. Использование меню для объединения подзадач а и б.
- •3.8. Варианты заданий
- •3.9. Содержание отчета (см. П. 1.11)
- •3.10. Контрольные вопросы
- •Лабораторная работа №4. Разработка циклической программы с неизвестным количеством повторений
- •4.5. Оператор цикла repeat
- •4.6. Оператор цикла while
- •4.7. Варианты заданий
- •4.8. Содержание отчета (см. П. 1.11)
- •4.9. Контрольные вопросы
- •Лабораторная работа №5. Разработка программы с использованием процедур и функций
- •5.1. Цель работы
- •5.2. Задание на лабораторную работу
- •5.3. Требования к программе
- •5.4. Порядок выполнения работы
- •5.5. Программирование процедур и функций на языке Pascal
- •5.5.1 Объявление функции
- •5.5.2 Объявление процедуры
- •5.5.3 Передача аргументов в подпрограмму с использованием параметров-значений и параметров-переменных
- •5.5.4 Локальные и глобальные переменные и их область действия
- •5.5.5 Предварительное описание подпрограммы
- •5.5.6 Рекурсивный вызов подпрограммы
- •5.6. Варианты заданий
- •5.7. Содержание отчета (см. П. 1.11)
- •5.8. Контрольные вопросы
- •Лабораторная работа № 6. Обработка символов и строк на языкеPascal
- •6.5.2. Определение переменных строкового типа string. Операторы обработки строк
- •6.6. Пример программы
- •6.7. Варианты заданий
- •6.8. Содержание отчета (см. П. 1.11)
- •7.5.2. Операторы для работы с файлами в Pascal
- •7.6 Пример программы
- •7.7. Варианты заданий
- •7.8. Содержание отчета (см. П. 1.11)
- •7.9. Контрольные вопросы
- •Список литературы
- •Приложение. Титульный лист лабораторной работы Міністерство освіти і науки України Національний технічний університет України
- •Кафедра прикладної математики
7.7. Варианты заданий
Вариант № 1
const n=5;
type
rec=record
key: integer;
body: array [1..5] of 'a'..'z'
end;
table=array [1..n] of rec;
Считая, что в таблице записи имеют различные ключи, описать: процедуру sort(t), упорядочивающую записи таблицы T по возрастанию их ключей.
Вариант № 2
const n=5;
type
rec=record
key: integer;
body: array [1..5] of 'a'..'z'
end;
table=array [1..n] of rec;
Описать логическую функцию search(t, k, h), определяющую, есть ли в таблице T (все записи которой уже упорядочены по возрастанию их ключей) запись с ключом k, и, если есть, присваивающую ее номер параметру h.
Вариант № 3
type
field=record
vertical: (a, b, c, d, e, f, g, h);
horizontal: 1..8
end;
Описать логическую функцию ferz (n1, n2), проверяющую, может ли ферзь за один ход перейти с поля n1 шахматной доски на поле n2.
Вариант № 4
type
rational=record
chisl: integer;
znam: 1..maxint
end;
arr=аrrау [1..20] of rational;
Описать логическую функцию sravnenie (a, b), сравнивающую два рациональных числа a и b.
Вариант № 5
type
rational=record
chisl: integer;
znam: 1..maxint
end;
arr=аrrау [1..20] of rational;
Описать процедуру add(c, a, b), которая складывает рациональные числа a и b и присваивает их сумму рациональному параметру c.
Вариант № 6
type
rational=record
chisl: integer;
znam: 1..maxint
end;
arr=аrrау [1..20] of rational;
Описать процедуру sokr (r), приводящую рациональное число r к несократимому виду.
Вариант № 7
type
rational=record
chisl: integer;
znam: 1..maxint
end;
arr=аrrау [1..20] of rational;
Описать процедуру max (х, m), присваивающую параметру m наибольшее из рациональных чисел массива x.
Вариант № 8
type
domino=record
left, right: 0..6
end;
ryad=array [1..28] of domino;
Описать логическую функцию prav_ryad (r), которая проверяет, правильно ли выставлены кости домино в ряду r (равна ли правая цифра очередной кости левой цифре следующей кости).
Вариант № 9
Запись Сотрудники.Поля:
ФИО, должность, дата приема на работу, оклад
Описать процедуру, которая из списка сотрудников (список не меньше 10 элементов) выводит на монитор ФИО сотрудника с минимальным окладом
Вариант № 10
type
stroka=packed array [1..20] of char;
citizen=record
familia, gorod: stroka;
adres: record
street:stroka;
dom, kv: 1..100
end
end;
spisok=array [1..10] of citizen;
Описать процедуру ironia_sudby(S), которая печатает фамилии двух (любых) жителей из списка S, живущих в разных городах по одинаковому адресу.
Вариант № 11
Запись Владельцы сотовых телефонов. Поля:
ФИО владельца, модель телефона, идентификатор телефона (IMEI), дата приобретения.
Описать процедуру, которая из списка (список не меньше 10 элементов) выводит на монитор ФИО сотрудника с определенной моделью телефона
Вариант № 12
Запись Расписание назначенных встреч.Поля:
ФИО, место встречи, дата и время встречи
Описать процедуру, которая из списка (список не меньше 10 элементов) выводит на монитор по дате и места встречи ФИО.
Вариант № 13
Запись Участники интернет-форума. Поля:
ФИО участника, пол (True-мужской, False-женский), пароль, дата регистрации,
Описать процедуру, которая из списка (список не меньше 10 элементов) выводит на монитор ФИО участников по дате регистрации
Вариант № 14
Запись Улицы вашего города. Поля:
название улицы, количество домов, протяженность (км), год основания
Описать процедуру, которая из списка (список не меньше 5 элементов) выводит на монитор самую длинную улицу и количество домов на ней.
Вариант № 15
Запись Товарно-материальные ценности. Поля:
наименование ТМЦ, штрих-код, количество на складе, стоимость
Описать процедуру , которая из списка (список не меньше 10 элементов) выводит на монитор по штрих-коду количество товара на складе.
Вариант № 16
Запись Учебная нагрузка группы.Поля:
наименование предмета, количество часов, ФИО преподавателя, система оценки знаний (True-экзамен, False-зачет)
Описать процедуру, которая из списка (список не меньше 10 элементов) выводит на монитор ФИО преподавателя по наименованию предмета.
Вариант № 17
Запись Ассортимент конфет. Поля:
Наименование, стоимость, срок годности и номера магазинов
Описать процедуру, которая из списка (списокне меньше10 элементов) выбрать те конфеты, стоимость которых от 30 до 55 грн. за 1 кг. Указать срок их годности и номера магазинов, в которых они имеются в продаже.
Вариант № 18
Запись Библиотека.Поля:
Название, год выпуска (для книги), дату выпуска (для газет и журналов);
автора (для книги), редактора (для газеты), состав редколлегии (для журнала);
объем.
Описать процедуру, которая из списка (списокне меньше 10элементов)выводит информацию об изданиях, вышедших в заданном году.
Вариант № 19
Запись Аптека.Поля:
Наименование, количество, цена,срок хранения (в месяцах).
Описать процедуру, которая из списка (списокне меньше10 элементов) выяснит, сколько стоит самый дорогой и самый дешевый препарат
Вариант № 20
Запись Музыкальная школа.Поля:
Фамилия, инструмент, сколько лет занимается музыкой, конкурсы.
Описать процедуру, которая из списка (список не меньше 5 элементов) выводит на монитор фамилии учеников, которые играют на скрипке.