> 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！ (0) yanghuan 2006-08-07 17:50:37
  • Re:Help!Help!Help!我的程序一直WA，帮忙看看啦！Thanks！ (980) yanghuan 2006-08-07 17:51:02