yuese.pl0

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

PROGRAM JON;
CONST
M=10;
VAR
PERSON:ARRAY[1..11] OF INTEGER;
I,N,J,P:INTEGER;
BEGIN

FOR I:=1 TO M-1 DO
PERSON[I]:=I+1;
PERSON[M]:=1;
READ(N);
WRITE(M,N);
P:=1;
FOR I:=1 TO M DO
BEGIN
 FOR J:=1 TO N-1 DO
 P:=PERSON[P];
 WRITE(PERSON[P]);
 PERSON[P]:=PERSON[PERSON[P]];
END;
END.