lex1.pl0

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

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