funpara.pl0

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

PROGRAM SDF;
VAR
X,Y:INTEGER;
FUNCTION MC(A,B:INTEGER):INTEGER;
VAR M,C:INTEGER;
BEGIN
 M:=A;
 C:=B;
 WRITE(A,B);
 MC:=M+C;
 
END;
FUNCTION KFC(C,D:INTEGER):INTEGER;
VAR K,F:INTEGER;
BEGIN
  K:=C;
  F:=D;
  WRITE(C,D);
  KFC:=K+F;
END;
BEGIN
 X:=MC(1,2);
 Y:=KFC(5,6);
WRITE(X*Y);
END.