Глобальные и локальные переменные

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

Пример использования:

Вычислить: .

Из общей задачи вычленим подзадачу вычисления суммы

,

Зависящей от трех параметров . Оформим решение этой подзадачи в виде процедуры. Если бы мы решили воспользоваться механизмом параметров для обмена

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

program р1_33;

Var iO, ik: integer;

alfa, beta, x, z, zl, z2, f: real;

function s;

var i: integer;

sum: real;

begin

sum: =0;

for i: =i0 to ik do

sum: =sum+exp(i*ln(sqr(sin(x))))+cos(x);

z: =sum

end;

begin

writeln('Enter alfa, beta');

readln(alfa, beta);

i0: =1; ik: =10; x: = alfa;

s;

z1: =z;

i0: =5; ik: =20; x: = beta;

s;

z2: =z;

f: =zl+z2;

writeln(“f=”, f);

readln

end.

В этом примере глобальными являются переменные io, ik, alfa, bata, x, z, z1, z2, f. Локальными являются переменные: i, sum.

Заметим, что если имя локальной переменной совпадает с именем глобальной пере­менной, то при выполнении подпрограммы такая глобальная переменная становится не­доступной, т.е. «закрывается» локальной переменной.

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

< имя параметра >: < тип > = < значение >.

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

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

В процедуре для поиска максимального значения опишем пять умалчиваемых значений. В качестве значения по умолчанию примем 0.

program pl_34;

var x, y, z, w, v, m: real;

procedure p(var max: real; a: real=0; b: real=0; c: real=0; d: real=0;

e: real=0);

begin

max: =a;

if max< b then max: =b;

if max< c then max: =c;

if max< d then max: =d;

if max< e then max: =e;

end;

begin

writeln(‘Enter x, y, z, w, v’);

readln(x, y, z, w, v);

P(m, x, y);

writeln('max=', m: 3: 0) P(m, x, y, z);

writeln('max=', m: 3: 0); Р(m, x, y, z, w);

writeln('max=', m: 3: 0) P(m, x, y, z, w, v);

writeln(‘max=’, m: 3: 0);

readln

end.

В Delphi имеется возможность использовать подпрограммы с одинаковыми именами, но отличающиеся количеством и типом параметров. В заголовках таких подпрограмм должно быть указано зарезервированное слово overload. При вызове таких подпрограмм компилятор анализирует количество и тип фактических параметров и вызывает соответствующую им подпрограмму.

Пример использования:

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

В программе будем использовать две функции с именем mm. Первая для нахождения минимального числа, вторая - для определения минимального порядкового номера для двух символов.

program pl_35;

var

x, y: real;

s, v: char;

function min(a, b: real): real; overload;

begin

if a> b then result: =b else result: =а end;

function min(a, b: char): char; overload; begin

result: =a;

if a> b then result: =b; end; begin

writeln(‘Enter two numbers');

readln(x, y);

writeln('min=', min(x, y): 3: 0);

writeln('Enter two characters');

readln(s, v);

writeln('min=', min(s, v));

readln

end.

При обращении к функции min(x, y) вызывается функция, определенная для вещественных аргументов, при обращении min(s, v) - для символьных аргументов