fa1.txt

来自「原创！PL0词法分析程序的源码！能够实现用PL0语言进行词法及语法分析！」· 文本 代码 · 共 31 行

input file? t.txt
list object code ?   0 var a,b,c,d,e;
   1 procedure p;
   1   begin
   3      c:=1/a
   5   end;
   8 
   8 procedure q;
   8   begin
  10      d:=1/b
  12   end;
  15 
  15 procedure r;
  15   begin
  17      e:=2/(c+d)
  21   end;
  24 
  24   begin
  25     read(a);
  27     read(b);
  29     while a#0 do
  33        begin
  33           call p;
  34           call q;
  35           call r;
  36           write(e);
  39           read(a);
  41           read(b)
  43        end
  43 end.