neq.cod

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

  0 PROGRAM EX01; 
  0 VAR A,B; 
  1 BEGIN 
  2   READ(A); 
  4   B:=5; 
  6 IF A<>0 
  8 THEN 
  9 B:=0; 
 12   WRITE(A); 
 15   WRITE(B) 
 17 END. 
~~~ RUN PL0 ~~~
? 0
0
5
~~~ END PL0 ~~~