Пример 1.2

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

Program R2;

Var

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

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

{Процедура с параметрами-значениями}

Procedure Rast2 (Xx1, Xx2, Yy1, Yy2: Real); {Xx1, Xx2, Yy1, Yy2 – параметры значения типа Real}

Begin

D:= Sqrt (Sqr (Xx1 - Xx2) + Sqr (Yy1 - Yy2)) {D – глобальная переменная}

End;

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

Begin

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

Readln (N);

For I:=1 To N Do

Begin

Readln (X1, X2, Y1, Y2);

Rast2 (X1, X2, Y1, Y2); {Оператор вызова процедуры Rast2}

Writeln (D);

End

End.

Данная программа выполняет те же вычисления, что и предыдущая (см. пример 1.1). Однако для вычисления расстояния между точками используется процедура Rast2 с параметрами-значениями Xx1, Xx2, Yy1, Yy2. Для представления результата работы процедуры применена глобальная переменная D, поскольку данный результат должен быть передан в вызывающую программу.

1.2.6. Параметры-переменные

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

Параметры-переменные – это группа параметров, перед которой стоит зарезервированное слово Var и за которой следует тип. Фактическим параметром может быть только переменная (но не константа и не выражение) того же типа, что и тип формального параметра. В подпрограмму передается адрес этой переменной. Поэтому подпрограмма может непосредственно использовать и изменять значение этой переменной и передавать в основную программу вырабатываемые ею результаты.

Таким образом, изменение формального параметра-переменной приводит к изменению соответствующего фактического параметра.