test6.pl

来自「简单编译器的源代码,是大学课程设计内容,附简单测试用例」· PL 代码 · 共 21 行

$ PL Program test6
begin
   const n=0;
   integer x,y;
   integer array a[5];
 proc outdata
   begin
      write a[1],a[2],a[3],a[4],a[5];
   end;
   read a[1],a[2],a[3],a[4],a[5];
  $ if 
  $   n>1->call outdata;[]
  $   n<1->skip;
  $ fi;
   read x;
   do
     x<10->write x;read x;[]
     x>15->write 2*x;read x;
   od;  
end.