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

Для использования стандартной процедуры или функции к программе подключается тот или иной специализированный библиотечный модуль, в котором записана данная стандартная процедура или функция, для чего имя библиотечного модуля указывается в разделе 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

Написание программы на языке Паскаль с использованием стандартных строковых процедур и функций

Цель работы: формирование знаний и умений по работе со строками. Приобретение навыков работы со стандартными строковыми процедурами и функциями.

Краткие теоретические сведения

Строка — это последовательность символов кодовой таблицы персонального компьютера. При использовании в выражениях строка заключается в апострофы. Количество символов в строке (длина строки) может динамически изменяться от 0 до 255. Для определения данных строкового типа используется идентифи­катор String, за которым следует заключенное в квадратные скобки значение мак­симально допустимой длины строки данного типа. Если это значение не указывается, то по умолчанию длина строки равна 255 байт.

Переменную строкового типа можно определить через описание типа в разделе определения типов или непосредственно в разделе описания переменных. Строковые данные могут использоваться в программе также в качестве констант.

Недопустимо применение строковых переменных в качестве селектора в операторе Case.

Определение строкового типа устанавливает максимальное количество символов, которое может содержать строка.