lex1.cod

来自「编译实验的源程序代码 比较简单」· COD 代码 · 共 9 行

  0   0 PROGRAM EOX1;VAR A,B,C;   BEGIN    
  0   2 	A:=20;  
  0   4   	B:=30;   
  0   6  	READ(C);   
  0   8   	WRITE(C);    
  0  11   	IF C<50 THEN  WRITE(A)        
  0  17   	ELSE WRITE(B);   
  0  22   END.