Главная | Обратная связь | Поможем написать вашу работу!
МегаЛекции

Вызов стандартной процедуры или функции




Для использования стандартной процедуры или функции к программе подключается тот или иной специализированный библиотечный модуль, в котором записана данная стандартная процедура или функция, для чего имя библиотечного модуля указывается в разделе uses. Затем в основной программе записывается вызов процедуры или функции, для чего записывается ее имя и указываются фактические параметры. Так как после выполнения функции ее значение присваивается имени, то имя функции может использоваться в выражении.

Также в своем разработанном модуле можно описать и реализовать собственные процедуры и функции, служащие облегчением работы программиста. Данные процедуры и функции могут быть собраны в отдельный собственно разработанный модуль и могут использоваться как личная библиотека программиста.

Пример разработки собственной библиотеки

Итак, сначала разрабатывается модуль с любым называнием. В него в интерфейсной части записываются названия процедур и функций, реализация

которых будет представлена в части i mplementation. Например, создадим функцию 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

Поделиться:





Читайте также:





Воспользуйтесь поиском по сайту:



©2015 - 2024 megalektsii.ru Все авторские права принадлежат авторам лекционных материалов. Обратная связь с нами...