> 我用的是在另一个题库上类似的题目的AC程序（vijos 1049）来做的 可是总是Presentation Error  实在想不通
>  有没有那位大牛帮一下忙  谢谢了
> 
> 
> var a:array[0..100,1..9,1..200]of integer;
>     st,st0:string;a00,a0,a1:array[1..200]of integer;
>     i,j,x,l,m,n:integer;k:longint;c:char;
> procedure zd;
> begin
>  for i:=1 to l-1 do begin
>   for j:=2 to m-1 do begin
>    for x:=1 to n do
>    a[i,j,x]:=a[i,j-1,a[i,1,x]];
>   end;
>   if i<l-1 then
>    for x:=1 to n do begin
>     a[i+1,1,x]:=a[i,m-1,a[i,1,x]];
>    end;
>  end;
> end;
> procedure chu(k:longint);
> begin
>  st:='';
>  while k<>0 do begin
>   st:=st+chr((k mod m)+48);
>   k:=k div m;
>  end;
> end;
> begin
>   readln(n);
> while n<>0 do begin
>    fillchar(a0,sizeof(a0),0);
>    for i:=1 to n do begin
>     read(a00[i]);
>     a[0,1,a00[i]]:=i;
>    end;
>    a0:=a[0,1];
>    m:=2;
>    for j:=1 to n do begin
>     a[1,1,j]:=a0[a[0,1,j]];
>    end;
>    read(k);
>  while k<>0 do begin
>   read(c);
>   readln(st0);
>   if length(st0)<n then begin
>    for j:=length(st0)+1 to n do
>     st0:=st0+' ';
>   end;
>   chu(k);
>   l:=length(st);
>   zd;
>   for j:=1 to n do a1[j]:=j;
>   for i:=l-1 downto 0 do begin
>    if st[i+1]<>'0' then begin
>     x:=ord(st[i+1])-48;
>     for j:=1 to n do
>      a0[j]:=a1[a[i,x,j]];
>     a1:=a0;
>    end;
>   end;
>   st:='';
>   for j:=1 to n do
>    st:=st+st0[a0[j]];
>   l:=length(st);
>   while st[l]=' ' do
>    begin st:=copy(st,1,l-1);l:=l-1;end;
>   writeln(st);
>   read(k);
>  end;
>  readln(n);
>  end;
> end.
> 

• Re:你的程序会输出多余的空行，这个必然PE (3) zhymaoiing 2006-03-23 22:12:42
• "After each block there is one empty line. " 都怪自己 题目没有读请 枉PE了几次 (0) zhymaoiing 2006-03-23 22:21:14