[size=5]program josephus01;  
var i,n,m,p,t,s:integer;
    a:array[1..150] of integer;   //总人数初设150,n不能超过150.
begin
    writeln('input n,m:');
    readln(n,m);
    for i:=1 to 150 do a[i]:=1;   //所有的人数先设为1,表示出圈.
    for i:=1 to n do a[i]:=0;     //1..n的人数,归0,初使化.
    t:=0; p:=0; s:=0;
    repeat
      while (t<m)  do    //t为计数器,当达到m的时候结束,打印出圈的号码.
        begin
          p:=p+1;       //p为数组元素指针,加1表示指针向后移动1次.
          if a[p]=0 then t:=t+1;  //如果a[p]=0,表示有在圈内,可计数.
          if p>n then p:=0;       //如果p>n,表示超过人数,重新开始数.
        end;

      write(p,'  ');   //打印出圈的号码
      a[p]:=1;         //将号码做标计,置1.
      s:=s+1;          //计算总人数,加1.
      t:=0;            //计数器置0,重新开始.
  until s=n;
readln;
end.

program josephus02;
var a:array[1..150] of integer;
    n,m,i,d,k,p:integer;
begin
  writeln('input n,m:');
  for i:=1 to 150 do a[i]:=1; //初使化数组元素为1,表示在圈内.
  readln(n,m);
  d:=0;k:=0;
  while true do
  begin
    for i:=1 to n do
    begin
      k:=k+a[i];
      if k<>m then continue;  //k不等于m时,继续跳到循环开始进行计数.
      write(i:4);
      
      p:=p+1;
      if p>9 then begin p:=0; writeln; end; //p变量是表示如果打印出10个就换行.
      
      a[i]:=0;             //a[i]为0表示出圈.
      k:=0;                //k表示重新计数.
      d:=d+1;
      if d=n then exit;
    end;
  end;
readln;
end.

program josephus03;    //链表实现,输入结点后,把该结点删除.
var a:array[1..150]of integer;
    i,j,n,m,p,s,t:integer;
begin
    writeln('input n,m:');
    readln(n,m);
    for i:=1 to n-1 do a[i]:=i+1;
    a[n]:=1;
    i:=0;j:=0; p:=0; t:=1; s:=0;
    repeat
      while p<m do
      begin
        j:=i;
        i:=t;
        t:=a[t];
        p:=p+1;
      end;
      write(i,'  ');
      a[j]:=a[i];
      p:=0;
      s:=s+1
    until s=n;
end.

program josephus04; //链表实现,同例3一样,少一个变量t.
var a:array[1..150]of integer;
    i,j,n,m,p,s:integer;
begin
    writeln('input n,m:');
    readln(n,m);
    for i:=1 to n-1 do a[i]:=i+1;
    a[n]:=1;
    i:=1;j:=0; p:=1; s:=0;
    repeat
      while p<m do
      begin
        j:=i;
        i:=a[i];
        p:=p+1;
      end;

      write(a[j],'  ');
      a[j]:=a[i];
      p:=0;
      s:=s+1
    until s=n;
    writeln('the king is:',i);
end.[/size]