test4.java

S语言编译器的完整实现

procedure test;
     var a,b,c :integer;
   begin
       a:=0;  /*赋值语句*/
       b:=10;
       while a<b do a:=a+1; /*while语句*/
       repeat a:=a+1; until a>b; /*repeat语句*/
   end.
/*赋值语句、while语句、repeat语句*/