Pascal 高精度加法函数

function jia(s1,s2:ansistring):ansistring;

var i,j,l1,l2:longint;

a,b:array[0..10000] of longint;

o:ansistring;

beginjia:='';

fillchar(a,sizeof(a),0);

fillchar(b,sizeof(b),0);

l1:=length(s1);

l2:=length(s2);

for i:=1 to l1 do

a[l1-i+1]:=ord(s1[i])-ord('0');

for i:=1 to l2 do

b[l2-i+1]:=ord(s2[i])-ord('0');

for i:=1 to l1 do

begina[i]:=a[i]+b[i];

if a[i]>=10 then

begininc(a[i+1]);

a[i]:=a[i]-10;

end;end;

if a[l1+1]>0 then inc(l1);

for i:=1 to l1 do

beginstr(a[i],o);

jia:=o+jia;

end;end;

这是高精度+方法，乘法也类似，可以直接写出高精度*高精度。 除此之外。

提示，数组使用高精度计算。

遵循乘法规则，利用 div 和 mods

该操作将四舍五入。

呵呵，就是这样。

高精度加，它是A + A。

readln(s1);a 是一个字符串。

len1:=length(s1);

for i:=1 to len1 do a[len1+1-i]:=ord[s1[i]]-48;

for i:=1 to len1 do

beginc[i]:=a[i]+a[i];

if c[i]>=10 then

beginc[i+1]:=c[i+1]+1;

c[i]:=c[i] mod 10;

end;end;

if [len1+1]>0 then len1:=len1+1;

for i:=len1 downto 1 dowrite(c[i]);

writeln;

end.

上述一些错误可能会被扣 100 分而不予纠正。 这是因为测试数据可能无法检测到此类错误。

严格来说，如果我举了一个例子。 然后就没有输出了。 因为不会有非法访问A[501]。

所以它会导致运行错误。

标题说可以添加 +，- 不是必需的。

因此，当输入不是正数时，它不会执行任何 if（） 语句。

修改：读取 st1 和 st2 后添加。

if not (st1[1] in ['then st1:='st1;

if not (st2[1] in ['then st2:='st2;

此外，您的减号流程中存在错误：

如果计算 899-900，则结果是 -999，正确的结果是 -1if c[l+1]<0 then write（'- 这句话：表示您正在计数 [1st1]-[st2]（1st1] 表示字符串前面有 1）。

因此，您应该修改：

if c[l+1]>0 then beginwrite('-

minus(st2,st1);

exit;end;

运行时有个方框，看上面，蓝色数字，十几个以上，再按空格，就会显示**错，自己改吧！