这个题目可以转化一下~仔细想想翻牌的过程不难发现.翻牌的过程可以看作,第一次翻第一张牌,第二次翻剩下的牌的第二张(就是现在的i),第三次翻剩下的牌的第三张.....这样就简单了很多..再来看代码就容易理解了
program pai;
var
a:array[1..13] of integer;
m,n,t,i,j:integer;
begin
   a[1]:=1;//只要不是0就代表以经翻出去了的牌,以后就不对它作处理了.
   for i:= 2 to 13 do a[i]:=0;//初使化后面还没有翻的牌
   t:=0;
    for i:= 2 to 13 do
      begin
        n:=0;//n是数的牌数
        repeat
          t:=t+1;
           if t=14 then t:=1;//一共只有13张牌呀~数完了又倒回来数(不管牌怎么往后放,从左到右牌的顺序是不变的~所以不用考虑牌往后放的问题)
           if a[t]=0 then n:=n+1//判断是否以经翻开,没翻就数牌
           until  n=i;//当数到i了
           a[t]:=i;//写入现在翻开的是几
      end;
      for j:= 1 to 13 do
       write(a[j]:4);
   end.

表忘了加分哟`~~~呵呵`~~

这个题和狐狸捉兔子问题,简化后就有点像~~~~
这是狐狸捉兔子问题的贴子看看吧~:
[url=http://www.programfan.com/club/showbbs.asp?id=98781]http://www.programfan.com/club/showbbs.asp?id=98781[/url]

var
  s: array[1..13] of integer;
  i, j, k, m: integer;
begin
  for i := 1 to 13 do
    s[i] := i;

  j := 0; //M的累加
  k := 0; //指针
  m := 1; //每次抽出的牌数
  while 13 - m >= 0 do
  begin
    if k > 13 then
      k := 1
    else
      k := k + 1;
    while s[k] = 0 do
    begin
      if k > 13 then
        k := 1
      else
        k := k + 1;
    end;
    j := j + 1;
    if j = m then
    begin
      s[k] := 0;
      writeln(m, '->', k);
      j := 0;
      m := m + 1;
    end;
  end;
  readln;
end.

加FEN