洛谷 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.