gcd.pl0

来自「扩展PL0语言 对其扩展++,--,+=,-=运算等」· PL0 代码 · 共 14 行

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.