da vecchio » 23/04/2004, 15:47
vediamo quindi di spiegare le variabili locali e globali...
esempio di variabile LOCALE...
<pre id=code><font face=courier size=2 id=code>
program volume;
uses crt;
var A,B,h,V:real;
procedure introduzione;
begin
writeln('le dimensinioni della base sono');
readln(A,B);
writeln('l'altezza del parallelepipedo è');
reaedln(h);
end;
procedure volume;
<b>var A_base:real;</b> {questa variabile ha valore solo nella procedura, per i resto del programma (fuori da questa procedura) qeusta variabile non esiste}
begin
A_base:=A*B;
V:=A_base*h;
writeln('il volume è',V:10:2);
end;
begin {main}
clrscr;
introduzione;
volume;
repeat until keypressed
end.
</font id=code></pre id=code>
per farti capire meglio la variabile locale e la differenza con la variabile globale (quella denunciata all'inizio del programma) ti faccio un altro esempio...
<pre id=code><font face=courier size=2 id=code>
program variabili_somma;
uses crt;
var X,a,b,c,somma:integer;
procedure introduzione;
begin
writeln('introduci 3 numeri separati da invio');
readln(a,b,c);
end;
procedure somma;
var X:integer;
begin
X:=a+b;
Somma:=X+c;
writeln('qui nella procedura X vale',X);
end;
begin {main}
clrscr;
X:=15; {questo valore glielo do io...così..a caso...}
writeln('nel programma principale X=',X);
introduzione;
somma;
writeln('dopo la procedura somma la X vale',x);
readln;
end.
</font id=code></pre id=code>
..fai girare il programma...te ne accorgerai da te...
<img src="http://www.vecchio85.supereva.it/vecchio.gif" border=0>
Modificato da - vecchio il 23/04/2004 16:49:31