Пример 1.1

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

Program R1;

Var

X1, Y1, X2, Y2, D: Real; {Объявление глобальных переменных}

N, I: Integer; {Объявление глобальных переменных}

{Процедура без параметров}

Procedure Rast1;

Begin

D:=Sqrt (Sqr (X1 - X2) + Sqr (Y1 - Y2)) {D – расстояние между точками;

X1, Y1, X2, Y2 – координаты первой и второй точек}

End;

{Вызывающая программа}

Begin

Writeln (‘Введите количество пар точек’);

Readln (N);

For I:=1 To N Do

Begin

Writeln (‘Введите координаты первой точки в виде: абсцисса

ордината’);

Readln (X1,Y1);

Writeln (‘Введите координаты второй точки в виде: абсцисса

ордината’);

Readln (X2, Y2);

Rast1; {Оператор вызова процедуры Rast1}

Writeln (D);

End

End.

В данном примере связь между вызывающей программой и процедурой Past1 осуществляется через глобальные переменные X1, X2, Y1, Y2, D.

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

Для устранения этого недостатка используются процедуры с параметрами.

1.2.4. Процедуры с параметрами

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

Формальные параметры – это идентификаторы переменных или констант, имена подпрограмм, используемых в операторах внутри данной подпрограммы, заменяемые аргументами при ее вызове.

Задание формальных параметров в заголовке подпрограммы при ее объявлении иллюстрирует синтаксическая диаграмма (рисунок 1.5).

Рисунок 1.5 - Синтаксическая диаграмма
задания формальных параметров

В языке Delphi существует шесть типов параметров:

1) параметры-значения;

2) параметры-переменные;

3) параметры-константы;

4) выходные параметры;

5) параметры без типа;

6) параметры процедурного типа.

1.2.5 Параметры-значения

Данный тип параметров применяется только для передачи в подпрограмму ее входных данных.

Параметры-значения – это группа параметров, перед которыми не используется зарезервированное слово Var, Const или Out и за которыми следует тип. Язык не допускает параметры-значения файловых типов.

Для каждого параметра-значения при вызове подпрограммы создается локальная переменная. Эти переменные существуют только во время выполнения подпрограммы, после чего они прекращают свое существование. При входе в подпрограмму этим переменным присваиваются значения соответствующих фактических параметров вызова подпрограммы. Данные значения локальных переменных используются при выполнении подпрограммы.

В качестве фактического параметра может использоваться любое выражение, тип которого совместим по присваиванию с типом параметра-значения.

При применении параметров-значений фактические параметры используются только при входе в подпрограмму, с целью передачи задаваемых ими значений соответствующим локальным переменным. После этого фактические параметры становятся недоступными из подпрограммы. Поэтому подпрограмма не может изменить значения переменной, являющейся фактическим параметром.

Изменение параметров-значений в теле подпрограммы не влияет на значения соответствующих переменных вызывающей программы.

Поэтому с помощью параметров-значений нельзя представлять результаты выполнения подпрограммы, которые должны использоваться вне ее тела, в основной части программы.