Bergervei/Pascal-Globale Variablen

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
== Zustandsänderungen globaler Variablen ==

<code id="4d2ff2ef1372b">
var a, b: integer;

procedure int_quotient(m, n: integer);
 var z: real;
 begin
  z:=m/n;
  writeln(floattostr(z));
 end;

procedure dbl_quotient(x, y: real);
 var z: real;
 begin
  z:=x/y;
  writeln(floattostr(z));
 end;

procedure init;
 // var a, b: integer;
 begin
  a:=4; 
  b:=5; 
  int_quotient(a, b);
  dbl_quotient(a, b);
 end;
</code>

<run id="4d2ff2ef13798">
init;
</run>