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

Программа на языке Pascal состоит из основной программы и, возможно, процедур и функций программиста. Каждая из них содержит раздел объявления переменных. Переменные, объявленные в основной программе, доступны всем инструкциям программы, в том числе и инструкциям процедур и функций программиста. Такие переменные называются глобальными.

Переменные, объявленные в процедуре или функции программиста, называются локальными. Локальные переменные доступны только инструкциям той программы (процедуры или функции), в которой они объединены.

Пример использования локальных и глобальных переменных:

program p;

Var

x: integer; {глобальная переменная}

procedure p1;

Var

y: integer; {локальная переменная}

Begin

{здесь можно использовать переменные x и y}

end;

Begin

{здесь можно использовать только переменную x}

{попытка использовать y приведет к сообщению об ошибке}

end.

В приведенном примере в процедуре p1 можно использовать переменную у, так как она объявлена в процедуре, и переменную х, так как она объявлена в основной программе и является по отношению к процедуре p1 глобальной переменной. В основной программе можно использовать переменную х. Переменная у в основной программе недоступна, так как она локальная.

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

Так, в результате работы программы:

program p;

Var

i:integer;

procedure proc;

Var

i:integer;

Begin

i:=100;

end;

Begin

i:=1;

proc;

writeln(i);

end.

на экран будет выведено число 1, так как процедура proc изменяет только значение локальной переменной i, которое после завершения процедуры уничтожается.

Процедура может изменить значение глобальной переменной, если внутри процедуры не объявлена переменная с таким же именем.

program p;

Var

name: string [10]; {переменная основной программы}

procedure GetName;

Begin

Write(‘Ваше имя’);

Readln(name);

end;

begin {инструкции основной программы}

GetName

Writeln(name);

end.

В результате выполнения приведенной программы на экран будет выведена введенная с клавиатуры строка, так как процедура GetName меняет значение глобальной переменной.