高精度——B进制星球

本文主要是介绍高精度——B进制星球，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

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

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

vars1,s2:ansistring;s3:string;a,b,c:array[0..20000]of longint;i,g:longint;
begins3:='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] dobeginc[i]:=a[i]+b[i]+c[i];if c[i]>=g thenbegininc(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 dowrite(s3[c[i]+1]);
end.

这篇关于高精度——B进制星球的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---