becomes.pl0

来自「PL/0语言是Pascal语言的一个子集」· PL0 代码 · 共 23 行

PROGRAM BECOMES;
CONST A=10;
VAR B,C;
PROCEDURE P;
BEGIN
  C+=B*A; 
  WRITE(C);
END;
PROCEDURE Q;
BEGIN
  C-=B*A; 
WRITE(C);
END;
BEGIN
READ(C);
READ(B);
  WHILE B<>0 DO
  BEGIN    
    CALL P;    
    CALL Q;
    B-=1;    
  END
END.