Program Lx;
Type
  Arr=Array[1..250] Of Longint;
Var
  a: Array[1..250, 1..250] Of Longint;
  b, c: Arr;
  i, j: Longint;
  n, p: Longint;
  f: Boolean;
Begin
  Readln(n, p);
  For i:=1 To n Do Begin
    For j:=1 To p Do Read(a[i, j]);
    Readln;
  End;
  For i:=1 To n Do Begin
    b[i] := i;
    c[i] := i;
  End;
  For i:=1 To 1000000000 Do Begin
    For j:=1 To n Do c[j] := a[c[j], (i - 1) Mod p + 1];
    f := true;
    For j:=1 To n Do
      If (b[j] <> c[j]) Then Begin
        f:=false;
        break;
      end;
    If (f) then Begin
    Writeln(i);
    Exit;
    end;
  End;
End.

• Re:Help!Help!Help!我的程序一直WA，帮忙看看啦！Thanks！ (691) yanghuan 2006-08-07 17:50:31
  • Re:Help!Help!Help!我的程序一直WA，帮忙看看啦！Thanks！ (0) yanghuan 2006-08-07 17:50:37
    • Re:Help!Help!Help!我的程序一直WA，帮忙看看啦！Thanks！ (980) yanghuan 2006-08-07 17:51:02