www.pudn.com > 编译原理课程设计与实现(毕业设计).rar > Test.pl0

/* Test.PL0 */ 
Program abc; 
  Integer x,y,z; 
  Real a,b; 
  Procedure ab(Var m,n:Integer;t:Real); 
    Begin 
      t:=n+m; 
      If m>n then n:=m else t:=m; 
      While n4 then z:=0; 
  y:=219;  z:=37;  x:=y*z 
End.