for.cod

来自「编译原理的课程设计,对PL0程序的修改与扩充,内附测试程序,即以.PL0为扩展名」· COD 代码 · 共 23 行

=== COMPILE PL0 ===
  0 PROGRAM MAIN; 
  0 VAR A,B,C; 
  1 BEGIN 
  2   READ(A); 
  4   FOR B:=0 TO 2 DO 
 10   BEGIN 
 10     C:=A+1; 
 14     WRITE(C); 
 17   END; 
 21   FOR B:=2 DOWNTO 1 DO 
 27     WRITE(C); 
 34 END. 
~~~ RUN PL0 ~~~
? 1
2
2
2
2
2
~~~ END PL0 ~~~