Использование глобальных переменных для обмена данными

Все описания (включая описания переменных), сделанные в главной программе до описания подпрограммы, видны и могут использоваться в этой подпрограмме. Такие описания называются глобальными, их значения и подпрограмма, и главная программа берут из общих ячеек памяти.

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

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

Задача 1. Найти минимальное из трех вещественных чисел

z = min (a, b, c), где z, a, b, c Î R.

Для решения задачи напишем процедуру, находящую минимальное из двух чисел и дважды последовательно вызовем ее для решения задачи, т.е. вначале найдем z = min (a,b), а затем z = min (z,c).

Program Min1;

// Описание переменных

Var a,b,c, // исходные данные задачи

x,y, // исходные данные функции

z: real; // результат процедуры и результат задачи

// Описание процедуры

Procedure Min;

Begin

If x < y then z:= x

else z:= y

End;

Begin

// Ввод исходных данных задачи

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

Readln(a,b,c);

// Присваивание исходных данных для функции

x:= a;

y:= b;

Min; // Первый вызов функции

// После вызова функции z=min (a,b)

// Присваивание новых исходных данных для функции

x:= z;

y:= c;

Min; // Второй вызов функции

// Вывод результата

Writeln (‘Наименьшее из введенных чисел - ’, z);

End.