para.pl0

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

PROGRAM SDF;
VAR
X,Y:INTEGER;
FUNCTION FF:INTEGER;
VAR 
H,D:INTEGER;
BEGIN
 H:=45;D:=23;
 FF:=45;
END;
FUNCTION AA:INTEGER;
BEGIN
Y:=44;
AA:=Y;
END;
BEGIN
X:=1;
 X:=FF();
WRITE(FF());
X:=2;
 Y:=AA();
WRITE(X,Y);

END.