洛谷 1996——约瑟夫问题（线性数据结构）

题目背景

约瑟夫是一个无聊的人！！！

题目描述

n个人(n<=100)围成一圈,从第一个人开始报数,数到m的人出列,再由下一个人重新从1开始报数,数到m的人再出圈,……依次类推,直到所有的人都出圈,请输出依次出圈人的编号.

输入输出格式

输入格式：
n m

输出格式：
出圈的编号

输入输出样例

输入样例#1：
10 3
输出样例#1：
3 6 9 2 7 1 8 5 10 4

---

运用公式dq:=(dq+m-1-1) mod (n-out)+1;（dp为上一次的位置，out为第几次出圈），然后输出a[dp]。最后将dp+1到n-out-1的数都向前移一位。

---

代码如下：

var
  a:array[1..10000] of longint;
  n,m,out,i,dq:longint;
begin
  readln(n,m);
  out:=0;
  dq:=1;
  for i:=1 to n do
    a[i]:=i;
  while out<n do
  begin
    dq:=(dq+m-1-1) mod (n-out)+1;
    write(a[dq],' ');
    for i:=dq to n-out-1 do
      a[i]:=a[i+1];
    inc(out);
  end;
end.