Цель: научиться составлять программы с использованием модулей в программе Turbo Pascal.
Теоретические сведения:
Модуль — это набор ресурсов (функций, процедур, констант, переменных, типов и т.д.), разрабатываемых и хранимых независимо от использующих их программ. Модуль может содержать достаточно большой набор процедур и функций, а также других ресурсов для разработки программ. Существуют стандартные модули Турбо Паскаля (system, crt, graph и т.д.).
Модуль имеет следующую структуру:
Unit <имя модуля>; {заголовок модуля}
Interface {интерфейсная часть}
Implementation {раздел реализации}
Begin
{раздел инициализации модуля}
End.
После служебного слова Unit записывается имя модуля, которое должно совпадать с именем файла, содержащего данный модуль.
В разделе Interface объявляются все ресурсы, которые будут в дальнейшем доступны программисту при подключении модуля.
В разделе Implementation описываются все подпрограммы, которые были ранее объявлены. Кроме того, в нем могут содержаться свои константы, переменные, типы, подпрограммы и т.д., которые носят вспомогательный характер и используются для написания основных подпрограмм. В отличие от ресурсов, объявленных в разделе Interface, все, что дополнительно объявляется в Implementation, уже не будет доступно при подключении модуля. При описании основной подпрограммы достаточно указать ее имя, а затем записать тело подпрограммы.
|
|
Раздел инициализации содержит операторы, которые должны быть выполнены сразу же после запуска программы, использующей модуль.
Порядок выполнения работы:
1) Запустите программу Turbo Pascal.
2) Создать программу: Реализовать в виде модуля набор подпрограмм для выполнения следующих операций над обыкновенными дробями вида P/Q (Р — целое, Q — натуральное):
1) сложение; 2) вычитание; 3) умножение; 4) деление; 5) сокращение дроби;
5) возведение дроби в степень TV (7V — натуральное);
6) функции, реализующие операции отношения (равно, не равно, больше или равно, меньше или равно, больше, меньше).
Дробь представить следующим типом: Type Frac =Record
Р: Integer;
Q: 1..32767; End;
Используя этот модуль, решить задачу:
1. Дан массив А, элементы которого — обыкновенные дроби. Найти сумму всех элементов и их среднее арифметическое; результаты представить в виде несократимых дробей.
2. *Дан массив А, элементы которого — обыкновенные дроби. Отсортировать его в порядке возрастания.
Откомпилируйте программу. Проверьте правильность решения задачи.
3) Создать программу: Реализовать в виде модуля набор подпрограмм для выполнения следующих операций над векторами:
1) сложения;
2) вычитания;
3) скалярного умножения векторов;
|
|
4) умножения вектора на число;
5) нахождения длины вектора.
Вектор представить следующим типом:
Type Vektor =Record
X, Y: Real;
End;
Используя этот модуль, решить задачу:
Дан массив А — массив векторов. Отсортировать его в порядке убывания длин векторов.
Откомпилируйте программу. Проверьте правильность решения задачи.
4) Запишите полученные результаты в тетрадь. Оформите отчет о проделанной работе, который должен содержать тему, цель работы, формулировки задач с решениями.
5) Выйдите из программы Turbo Pascal.