洛谷 1604——B进制星球（高精度算法）

题目背景

进制题目，而且还是个计算器~~

题目描述

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

输入输出格式

输入格式：
共3行第1行：一个十进制的整数,表示进制B。第2-3行：每行一个B进制数正整数。数字的每一位属于{0，1，2，3，4，5，6，7，8，9，A，B……}，每个数字长度<=2000位。

输出格式：
一个B进制数，表示输入的两个数的和。

输入输出样例

输入样例#1：
4
123
321
输出样例#1：
1110

---

这题我们有几个注意事项，只要解决了这题完全不是问题
①这个B进制数有可能是字母，所以我们要在转换为数字要减55
②进位时注意，是B进制的加法。
③输出字母是要特殊判断

---

代码如下：

var
  a,b:array[1..10001]of integer;
  i,g,l1,l2,len:integer;
  s1,s2:ansistring;
  s:set of 'A'..'Z';
begin
  s:=['A'..'Z'];
  readln(g);
  readln(s1);
  l1:=length(s1);
  for i:=1 to l1 do
    if s1[i] in s then a[l1-i+1]:=ord(s1[i])-55 else a[l1-i+1]:=ord(s1[i])-48;
  readln(s2);
  l2:=length(s2);
  for i:=1 to l2 do
    if s2[i] in s then b[l2-i+1]:=ord(s2[i])-55 else b[l2-i+1]:=ord(s2[i])-48;
  i:=1;
  while (i<=l1)or(i<=l2) do
  begin
    a[i]:=a[i]+b[i];
    if a[i]>=g then
    begin
      a[i+1]:=a[i+1]+1;
      a[i]:=a[i]-g;
    end;
    inc(i);
  end;
  if a[i]>0 then len:=i else len:=i-1;
  for i:=len downto 1 do
    if a[i]>=10 then write(chr(a[i]+55)) else write(a[i]);
end.