Domenii de vizibilitate si comunicarea prin variabile globale nfghfgh | Page 8

Exemplu:

Program P108;

{Comunicarea prin variabile globale }

var a, {variabilă globală în P }

b : real; {variabilă globală în P, F }

procedure P;

var c : integer; {variabilă locală în P }

begin

c:=2;

b:=a*c;

end; { P }

function F : real;

var a : 1..5; {variabilă locală în F }

begin

a:=3;

F:=a+b;

end; { F }

begin

a:=1;

P;

writeln(b); {se afişează 2.0000000000E+00 }

writeln(F); {se afişează 5.0000000000E+00 }

readln;

end.