gcd.cod

扩展PL0语言 对其扩展++,--,+=,-=运算等

=== COMPILE PL0 ===
  0 PROGRAM GMN; 
  0 VAR 
  1 F,X,Y:INTEGER; 
  1 FUNCTION GCD(M,N:INTEGER):INTEGER; 
  1 BEGIN 
  3 IF N=0 THEN GCD:=M 
  8 ELSE GCD:=GCD(N,M MOD N);  
 21 END; 
  1  JMP   0   2
  2  INI   0   5
  3  LOD   0   4
  4  LIT   0   0
  5  OPR   0   8
  6  JPC   0  11
  7  LOD   0   3
  8  STO   1   6
  9  OPR   0   0
 10  JMP   0  21
 11  LOD   0   4
 12STOPAR   0   3
 13  LOD   0   3
 14  LOD   0   4
 15  OPR   0  18
 16STOPAR   0   4
 17  CAL   1   1
 18  LOD   1   6
 19  STO   1   6
 20  OPR   0   0
 21  OPR   0   0
 22 BEGIN 
 23 X:=15; 
 25 Y:=10; 
 27 F:=GCD(X,Y); 
 34 WRITE(F); 
 36 END. 
  0  JMP   0  22
  1  JMP   0   2
  2  INI   0   5
  3  LOD   0   4
  4  LIT   0   0
  5  OPR   0   8
  6  JPC   0  11
  7  LOD   0   3
  8  STO   1   6
  9  OPR   0   0
 10  JMP   0  21
 11  LOD   0   4
 12STOPAR   0   3
 13  LOD   0   3
 14  LOD   0   4
 15  OPR   0  18
 16STOPAR   0   4
 17  CAL   1   1
 18  LOD   1   6
 19  STO   1   6
 20  OPR   0   0
 21  OPR   0   0
 22  INI   0   7
 23  LIT   0  15
 24  STO   0   4
 25  LIT   0  10
 26  STO   0   5
 27  LOD   0   4
 28STOPAR   0   3
 29  LOD   0   5
 30STOPAR   0   4
 31  CAL   0   1
 32  LOD   0   6
 33  STO   0   3
 34  LOD   0   3
 35  OPR   0  14
 36  OPR   0   0
~~~ RUN PL0 ~~~
5.000000
~~~ END PL0 ~~~