test4.java

来自「S语言编译器的完整实现」· Java 代码 · 共 9 行

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语句*/