test1.pls

PL语言到中间代码的编译程序

program pp;
  const PI=3 testconst='z' testconst1=TRUE
  type testtype=BOOLEAN testarray=array[2..20,0..50] of boolean
  var n,p:integer cr:char
  procedure p1(n:integer;var p:integer);
     var in_proc:char  cr1:testarray
     begin
       cr1(2,3):=cr1(n,cr1(n,p))+ p;
       in_proc:=2+p*(testconst+1);
       if n<=1 then 
        while testconst1 do n:=PI
       	else
       	 if p>1 then 
       	   begin
       	       	p:=n*p;
       	       	n:=p/n;
       	   end;
      call p1(n,cr1(2,5));
      
     end;
     begin
       call read(n);
       call p1(n,p);
       call write(p)
     end.