funpara1.pl0

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

PROGRAM SDF;
VAR
X,Y,Z: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
 Z:=3;
 X:=Z+MC(1,2)*KFC(3,4);
 WRITE(X);
 Y:=X*KFC(5,6)+KFC(7,8)-KFC(9,10); 
 WRITE(Y);
END.