noip2000-fjz-进制转换 2008.11.5

noip2000-fjz-进制转换 2008.11.5

算法：

1.负进制，短除法，但是余数小于0时要从上一位借位（商+1，余数-进制数）

2.遇到此类题目，肯定是对原来的进制转换有所改进的，所以，对规则若不确定可以多写几个连蒙带猜的，必定可以通过！

3.Wa，题中说的是r:-2,-3,….-20，不能想当然的认为是到-16—一定要看清题中的每一个字！

program fjz;
const fin='fjz.in';fout='fjz.out';
      p:array[0..19]of char=('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F','G','H','I','J');
var  x,r,y:longint;
     f1,f2:text;
     a:array[1..10000]of char;
procedure deal(x,r:longint);
var la,i,x1:longint;
begin
  la:=0;   x1:=x;
  repeat
    y:=x mod r;
    if y<0 then begin y:=y-r;x:=x div r+1 end
                else x:=x div r;
    inc(la);a[la]:=p[y];
  until x=0;
  write(f2,x1,'=');
  for i:=la downto 1 do
    write(f2,a[i]);
    writeln(f2,'(base',r,')');
end;
begin
  assign(f1,fin);reset(f1);
  assign(f2,fout);rewrite(f2);
  repeat
      readln(f1,x,r);
      if r<>0 then deal(x,r);
  until eof(f1);
  close(f1);
  close(f2);
end.