【题目描述】 话说有一天，小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进制数，表示输入的两个数的和。 【样例输入】 4 123 321 【样例输出】 1110 【分析】 普通高精度加法加一些模拟，不难，但太坑。尤其是输出语句害的我一直是60分。 注意三点： 一：进位时注意啦，是B进制的加法，不是10进制啦！ 二：输入时注意字母，要特殊处理！ 三：输出时还要注意字母，还要特殊处理！ 四：字母Ａ的ASCLL码是65，但是考虑进位10，所以在程序里要写55！
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.转载于:https://www.cnblogs.com/JRX2015U43/p/6533481.html
相关资源：JAVA上百实例源码以及开源项目