约瑟夫斯问题一解
此问题的常见解法有两种。一种利用链表将这N个编号用N个结点链接起来，利用链表指针及结点的删除求解。二是利用数组模拟链表求解。本文给出的解法与前两种不同，它紧扣题目，巧用数字0、1进行计数，方法简单可行。源程序附后。
程序说明：
一、 出列与否的表示法
A(I)=1表示编号为I的人没出列
0表示编号为I的人已出列〗
I=1、2、……、N。
二、过程REPTBODY描述了出列的规则。其中计数语句不是常用的CN=CN+，而是CN=CN+A(I)。此语句中，因为A(I)=0表示出列，故等于不数。这是本程序的技巧之一。
三、若S=1，语句REPTBODY(S，N，CN，COANT)可以省略。
四、执行程序前，先设置常量N的值。本程序中N=12。
五、本程序采用TURBO PASCAL 6.0版本，在AST286机上调试通过。
program jo;
const
n=12;
type
Number=1..n;
var
a:array of 0..1;
cn,count,i,s,m:integer;
procedure reptbody(fv,ev:integer; var cn,count:integer);
begin
for i:=fv to ev do
begin
cn:=cn+a;
if cn=m then
begin
cn:=0;
a:=0;
write(i,' ');
count:=count+1;
end;
end;
end;
begin
for i:=1 to n do
a:=1;
write('from where?');
readln(s);
write('step=');
readln(m);
cn:=0;
count:=0;
reptbody(s,n,cn,count);
repeat
reptbody(1,n,cn,count);
until count=n;
end.