【重走普及路】【经典算法】约瑟夫问题

最新推荐文章于 2025-08-21 09:55:09 发布

原创最新推荐文章于 2025-08-21 09:55:09 发布 · 602 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#模拟 #pascal #普及

重走普及路专栏收录该内容

10 篇文章

订阅专栏

本文介绍了一个经典的约瑟夫环问题，通过简单的暴力模拟算法解决。问题要求n个人围成一圈，从第一个人开始报数，数到m的人出列，再由下一个人重新从1开始报数，直到所有人都出列，输出出列顺序。

题目背景

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

题目描述

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

输入输出格式

输入格式：

n m

输出格式：

出圈的编号

输入输出样例

输入样例#1：

10 3

输出样例#1：

3 6 9 2 7 1 8 5 10 4

说明

你猜，你猜，你猜猜猜......

直接暴力模拟不解释

var n,m,t,t1,t2:longint;
    a:array[1..101] of longint;
begin
    readln(n,m);
    t:=0;
    t1:=0;
    while t2<n do begin
        inc(t);
        if t=n+1 then t:=1;
        if a[t]=0 then inc(t1);
        if t1=m then begin
            write(t,' ');
            t1:=0;
            a[t]:=1;
            inc(t2);
        end;
    end;
end.