swap.pl0

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

   PROGRAM SSWAP; 
   VAR  
   A,B:INTEGER; 
   FUNCTION SWAP(VAR C,D:INTEGER):INTEGER; 
   VAR 
  TEMP:INTEGER; 
   BEGIN 
    TEMP:=C; 
    C:=D; 
    D:=TEMP; 
  END;
  BEGIN
    A:=3;
    B:=4;
    SWAP(A,B);
    WRITE(A,B);
  END.