Pascal代码高精度.docVIP

Pascal代码： program?p1039; type intarray? ?array[1..251]?of?byte; var s1,s2:string[250]; code,len:integer; a,b,res:intarray; *?转置并转换为整数数组?* procedure?revolve var?inta:intarray;?s:string[250] ; var i,tmp:byte; begin tmp: length s ; for?i: 1?to?tmp?do val copy s,tmp-i+1,1 ,inta[i],code ; end; *?处理多余数字?* procedure?remain lmin,lmax,x:byte;which:intarray ; var i:byte; begin for?i: lmin+1?to?lmax?do begin res[i]: which[i]+x ?mod?10; x: which[i]+x ?div?10; len: i end; if?x 0?then begin len: len+1; res[len]: x; end; end; *?加法，并处理多余数字?* procedure?addx ; var i,lena,lenb,x:byte; begin lena: l