pascal高精度加法

《pascal高精度加法》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、【问题描述】请你编写一个计算a+b的程序。【输入文件】文件名：base.in文件中只有两个整数a、b。【输出文件】文件名：base.out文件中只有一个整数，表示a+b的和。【输入样例】29【输出样例】11typenumbertype=array[0..500]ofinteger;vara,b:numbertype;i,k,l1,l2:integer;str1,str2:string;procedureplus(d:numbertype;varc:numbertype);vare,f:integer;beginifl1>=l2thene:=l1elsee:=l2;forf:=1toedobe

2、ginc[f]:=c[f]+d[f];c[f+1]:=c[f+1]+c[f]div10;c[f]:=c[f]mod10;end;ifa[e+1]<>0thene:=e+1;forf:=edownto1dowrite(a[f]);end;beginassign(input,'base.in');reset(input);assign(output,'base.out');rewrite(output);readln(str1);l1:=length(str1);fori:=1tol1doa[l1-i+1]:=ord(str1[i])-ord('0');readln(str2);l2:=leng

3、th(str2);fori:=1tol2dob[l2-i+1]:=ord(str2[i])-ord('0');plus(b,a);close(input);close(output);end.