test.pl0

PL0文法编译器

 (* Tests for PL/0-Compiler
    Ein- und Ausgabe,
    Arithmetik,
    odd-Operator,
    Vergleiche,
    while-Anweisung,
    if-then-else-Anweisung,
    Arrays
 *)

procedure io;
var i, j;
begin
   write('I/O');
   writeln;
   write('Eingabe i: ');
   read(i);
   write('Eingabe j: ');
   read(j);
   write('Eingegeben wurden:');
   write(i, j);
   writeln;
end; (* io *)

procedure arith;
var i, j, k, l, m, n;
begin
   write('Arithmetik');
   writeln;
   write('Eingabe i: ');
   read(i);
   write('Eingabe j: ');
   read(j);
   k:= i+j;
   l:= i-j;
   m:= i*j;
   n:= i/j;
   write('Resultate d. Rechenoperationen');
   writeln;
   write('+: ', k);
   writeln;
   write('-: ', l);
   writeln;
   write('*: ', m);
   writeln;
   write('/: ', n);
   writeln;
end; (* arith *)

procedure od;
var a;
begin
   write('odd-Operator');
   writeln;
   write('Eingabe a: ');
   read(a);
   if odd a then
      write('ungerade')
   else
      write('gerade');
   writeln;
end; (* od *)
           
procedure cond;
var i, j;
begin
   write('Vergleiche');
   writeln;
   write('Eingabe i: ');
   read(i);
   write('Eingabe j: ');
   read(j);
   if i < j  then write('<  ');
   if i <= j then write('<= ');
   if i = j  then write('=  ');
   if i >= j then write('>= ');
   if i > j  then write('>  ');
   if i # j  then write('#  ');
   writeln;
end; (* cond *)

procedure whil;
var i, m, n;
begin
   write('while-Anweisung');
   writeln;
   write('Eingabe Anfangswert m: ');
   read(m);
   write('Eingabe Endwert n: ');
   read(n);
   i:= m-1;
   while i < n do
   begin
      i:= i+1;
      write(i);
      writeln
   end;
end; (* whil *)

procedure ifanw;
var i;
begin
   write('if-Anweisung');
   writeln;
   write('Eingabe i: ');
   read(i);
   if i > 0 then
     write('positiv')
   else if i = 0 then
      write('null')
   else write('negativ');
   writeln
end; (* ifanw *)

begin
   call io;
   call arith;
   call cond;
   call od;
   call ifanw;
   call whil;
end.