Pascal-Globale Variablen

Aus ProgrammingWiki

Zustandsänderungen globaler Variablen

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;

init;

Suche