约瑟夫问题pascal程序

题意

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

var
n,m,i,j,tj:longint;
a:array[0..200]of longint;
begin
read(n,m);
fillchar(a,sizeof(a),0);
i:=0;j:=0;tj:=0;
repeat
inc(i);
if i>n then i:=1;
if (a[i]=0) then
begin
inc(j);
if j=m then
begin
a[i]:=1;
j:=0;
write(i,' ');
inc(tj);
end;
end;

until tj=n;
end.

转载于:https://www.cnblogs.com/YYC-0304/p/9500217.html

约瑟夫问题pascal程序相关推荐

Pascal程序结构
Pascal程序结构什么是Pascal程序结构 Pascal程序结构是指Pascal程序的基本组成部分及其组织方式,包括程序.单元.过程.函数.类型定义.变量定义.语句和表达式等.程序结构的良好设计 ...
我的第一次Pascal程序
今天刚刚来学点Pascal语言,都怪我买的书大多是用Pascal语言写的,所以我只能试着学一点咯! 来一段程序员最经典的Hello World! 1 program exl_2; 2 begin 3 ...
最优乘车pascal程序
Description H城是一个旅游胜地,每年都有成千上万的人前来观光.为方便游客,巴士公司在各个旅游景点及宾馆,饭店等地都设置了巴士站并开通了一些单程巴上线路.每条单程巴士线路从某个巴士站出发,依 ...
试卷批分pascal程序
某学校进行了一次英语考试,共有10道是非题,每题为10分,解答用1表示"是",用0表示"非"的方式.但老师批完卷后,发现漏批了一张试卷,而且标准答案也丢失了,手 ...
数列分段pascal程序
题意对于给定的一个长度为N的正整数数列A[i],现要将其分成连续的若干段,并且每段和不超过M(可以等于M),问最少能将其分成多少段使得满足要求. 分析一个一个加上s,如果s>m,那么s就变成 ...
混合牛奶pascal程序
题意给出Marry乳业每天对牛奶的需求量,还有每位奶农提供的牛奶单价和产量.计算采购足够数量的牛奶所需的最小花费. 分析排序,最小价值优先取,太多了就退出循环,输出(之前的价值+还有多少需求*退出 ...
单词接龙pascal程序
题意现在我们已知一组单词,且给定一个开头的字母,要求出以这个字母开头的最长的"龙"(每个单词都最多在"龙"中出现两次),在两个单词相连时,其重合部分合为一部分 ...
谁拿了最多奖学金pascal程序
题意找出奖学金最多的学生分析这题就是很简单的字符串处理,细心一点就好. 先把每一个学生的奖学金算出来,再排序,如果有两位或两位以上的学生获得的奖金最多,输出他们之中在输入文件中出现最早的学生的姓 ...
奖学金pascal程序
题意把总分排序分析先按总分从高到低排序,如果两个同学总分相同,再按语文成绩从高到低排序,如果两个同学总分和语文成绩都相同,那么规定学号小的同学排在前面 var a,t,p:array[0..3 ...

约瑟夫问题pascal程序

约瑟夫问题pascal程序相关推荐

最新文章

热门文章