t1.cod

编译实验的源程序代码 比较简单

  0 PROGRAM P1; 
  0 CONST I=5, B=20; C=1, D=2; 
  0 VAR I; X,Y; 
  0 PROCEDURE J; 
  0 BEGIN 
  0   X:=B 
  0 END; 
  0 PROCEDURE K; 
  0 BEGIN 
  0   Y:=C 
  0 END; 
  0 BEGIN 
  0   I:=10; 
  0   WHILE I>0 DO 
  0     BEGIN 
  0       BEGIN 
  0       END; 
  0       WRITE(I); 
  0       I:=I-1 
  0     END 
  0 END.