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;

執行時有個方框，看上面，藍色數字，十幾個以上，再按空格，就會顯示**錯，自己改吧！