funparav1.pl0

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

PROGRAM SDF;
VAR
X,Y,Z,H:INTEGER;
FUNCTION MC(VAR A,L:INTEGER):INTEGER;
VAR M,C:INTEGER;
BEGIN
 M:=1;
 C:=2;
 A:=M+C; 
 L:=A*3+L;
END;
FUNCTION KFC(VAR B,G:INTEGER):INTEGER;
VAR K,F,C:INTEGER;
BEGIN
  K:=5;
  F:=6;
  C:=4;
  B:=K+F+C;
  G:=G+B*3;
END;
BEGIN
 Z:=4;
 H:=8;
 MC(X,Z);
 KFC(Y,H);
 WRITE(X*Y,Z+H);
END.