首页 > 代码库 > Pascal约瑟夫问题
Pascal约瑟夫问题
1 program Project2; 2 3 {$APPTYPE CONSOLE} 4 const 5 n=13; 6 m=5; 7 8 9 10 Type 11 peopleno= array[1..n] of integer; 12 13 var 14 datering:peopleno; 15 s,p,i:integer; 16 flag:boolean; 17 18 begin 19 { TODO -oUser -cConsole Main : Insert code here } 20 for i:=1 to n do datering[i]:=1; 21 s:=0;{用于报数}; 22 p:=0;{出圈人数}; 23 flag:=true; 24 while flag = true do 25 for i:=1 to n do 26 begin 27 s:=s + datering[i]; 28 if s=m then 29 begin 30 s:=0; 31 datering[i]:=0; 32 p:=p + 1; 33 writeln(‘p=‘,p,i:4); 34 if p=n then flag:=false;{当flag=false时,表示圈中无人}; 35 end; 36 end; 37 readln; 38 end.
Pascal约瑟夫问题
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。