 |
|
Вызов стандартной процедуры или функции
Для использования стандартной процедуры или функции к программе подключается тот или иной специализированный библиотечный модуль, в котором записана данная стандартная процедура или функция, для чего имя библиотечного модуля указывается в разделе uses. Затем в основной программе записывается вызов процедуры или функции, для чего записывается ее имя и указываются фактические параметры. Так как после выполнения функции ее значение присваивается имени, то имя функции может использоваться в выражении.
Также в своем разработанном модуле можно описать и реализовать собственные процедуры и функции, служащие облегчением работы программиста. Данные процедуры и функции могут быть собраны в отдельный собственно разработанный модуль и могут использоваться как личная библиотека программиста.
Пример разработки собственной библиотеки
Итак, сначала разрабатывается модуль с любым называнием. В него в интерфейсной части записываются названия процедур и функций, реализация
которых будет представлена в части implementation. Например, создадим функцию max, вычисляющую максимальное значение между двумя целыми числами. Для этого в разделе interface сделаем следующее объявление:
function max(a1,b1:integer):integer;
После этого в разделе implementation должна находится реализация данной функции max.
Текст программы модуля может выглядеть так:
unit my_modul;
interface
function max(a1,b1:integer):integer;
implementation
function max(a1,b1:integer):integer;
begin
max:=a1;
if a1>b1 then max:=a1
else max:=b1;
end;
begin
end.
Данный модуль сохраняется на диске как файл с тем же названием (my_modul). При компиляции он автоматически получает расширение tpu.
Затем, в основной программе в разделе подключения модулей запишем:
uses crt,my_modul;
После этого можно воспользоваться функцией max, определенной и реализованной в модуле my_modul.
Текст основной программы может выглядеть так:
program kk;
uses crt,my_modul;
var
a1,b1,y:integer;
begin
writeln('Введите 2 числа');
readln(a1,b1);
y:=max(a1,b1);
writeln('max=',y);
end.
Порядок выполнения работы
1. Изучить теоретические сведения по теме “ Изучение наиболее часто употребляемых универсальных процедур и оформление их в виде личной библиотеки программиста”.
2. Получить у преподавателя индивидуальное задание. Разработать личную библиотеку, включив в нее процедуры, определенные в задании.
3. Показать работающую программу преподавателю.
4. Ответить на контрольные вопросы.
Контрольные вопросы
1. Стандартные функции и процедуры в Паскале.
2. Концепция разработки собственного модуля со стандартными процедурами и функциями.
3. Разработка собственных процедур и функций, включаемых в личную библиотеку программиста.
4. Пример программы.
Лабораторная работа № 23