test2.pl

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

$ PL Program test2 ：测试对各种正确句子的语法分析。
begin
  const n=10;
  integer array a[n];
  integer x,i;
  boolean found;

  proc search   $查找 x 是否存在于数组 a 中
    begin
      integer m;
      i,m:=1,n;
      do
        i<m -> if a[i]=x -> m:=i;[]
                  ~(a[i]=x) -> i:=i+1;
               fi;
      od;
      found:=(a[i]=x);
    end; 
  
  $ input table: 输入十个整数，存放到数组 a 中
  i:=1;
  do 
    ~(i>n) -> read a[i];
              i:=i+1;
  od;

  $ test search: 输入一个整数 x ，然后调用search过程进行查找
  read x;
  do
    ~(x=0) -> call search;
              if found -> write x,i;[]
                 ~found -> write x;
              fi;
              read x;
  od;

end.