-- start with 0 to facilitate modular arithmetic Soldiers: array (0..Max_Number_Of_Soldiers-1) of Soldier_Type;
procedure Next (Index: in out Integer; Interval: Positive) is begin for I in 1..Interval loop loop Index := (Index + 1) mod Number_Of_Soldiers; exit when Soldiers(Index).Alive; end loop; end loop; end Next; begin 省略 end Josephus; 0789デフォルトの名無しさん2012/10/07(日) 01:57:03.45>>788 関係ないけど、 subtype Soldiers_Index is Integer range 0 .. 99; Soldiers: array (Soldiers_Index) of Soldier_Type; Number_Of_Soldiersの代わりにSoldiers_Index'Range_Length のほうがスマートだぜ 0790デフォルトの名無しさん2012/10/10(水) 02:33:25.69 保守しとくか 0791デフォルトの名無しさん2012/11/08(木) 01:23:52.94 生き残り記念保守 0792デフォルトの名無しさん2012/11/08(木) 15:08:32.31 保守しても落とされたスレあるのに どういう好みで落としてんだ 0793デフォルトの名無しさん2012/11/09(金) 14:00:25.77>>792 日ごろの行いが良いか悪いか 0794デフォルトの名無しさん2012/12/19(水) 20:54:43.27 (・∀・)ISO/IEC 8652:2012(E)制定おめでとう!! 0795デフォルトの名無しさん2012/12/20(木) 16:33:03.16 Ada 2012かー 0796電脳プリオン 忍法帖【Lv=40,xxxPT】(4+0:5)【31.7m】NGNG?PLT(12080) ∧_∧ ( ・∀・) 人 ガッ ( つ―-‐-‐-‐-‐-‐○ < >__Λ∩ 人 Y ノ. V`Д´)/ し(_) / ←>>2510797デフォルトの名無しさん2013/02/15(金) 11:09:23.85 アダパー 0798デフォルトの名無しさん2013/03/17(日) 15:44:27.41 ねえ、波の間になにか泳いでるよ・・・?