gcd.pl0

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

PROGRAM GMN;
VAR
F,X,Y:INTEGER;
FUNCTION GCD(M,N:INTEGER):INTEGER;
BEGIN
IF N=0 THEN GCD:=M
ELSE GCD:=GCD(N,M MOD N); 
END;
BEGIN
X:=15;
Y:=10;
F:=GCD(X,Y);
WRITE(F);
END.