高精度——B进制星球

洛谷 P1604 B进制星球
题目描述
话说有一天，小Z乘坐宇宙飞船，飞到一个美丽的星球。因为历史的原因，科技在这个美丽的星球上并不很发达，星球上人们普遍采用B（2<=B<=36）进制计数。星球上的人们用美味的食物招待了小Z，作为回报，小Z希望送一个能够完成B进制加法的计算器给他们。 现在小Z希望你可以帮助他，编写实现B进制加法的程序。

分析
其实就是原版高精度，只不过用10对数求余变为B对数求余以及输入输出时要注意ABCD这些字母而已（修改自高精度——高精度加法）

var
 s1,s2:ansistring;
 s3:string;
 a,b,c:array[0..20000]of longint;
 i,g:longint;
begin
  s3:='0123456789ABCDEFGHIJKLMNOPQRST';
  readln(g);
  readln(s1);
  readln(s2);
  a[0]:=length(s1);
  b[0]:=length(s2);
  for i:=a[0] downto 1 do if (s1[i]>='0')and(s1[i]<='9') then val(s1[i],a[a[0]-i+1])
   else a[a[0]-i+1]:=ord(s1[i])-55;
  for i:=b[0] downto 1 do if (s2[i]>='0')and(s2[i]<='9') then val(s2[i],b[b[0]-i+1])
   else b[b[0]-i+1]:=ord(s2[i])-55;
  if a[0]<b[0] then c[0]:=b[0] else c[0]:=a[0];
  for i:=1 to c[0] do
   begin
     c[i]:=a[i]+b[i]+c[i];
     if c[i]>=g then
      begin
        inc(c[i+1]);
        c[i]:=c[i]-g;
      end;
   end;
  if c[c[0]+1]>0 then c[0]:=c[0]+1;
  for i:=c[0] downto 1 do
   write(s3[c[i]+1]);
end.