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: length s1 ; lenb: length s2 ; if?lena lenb?then len: lenb else len: lena; x: 0; for?i: 1?to?len?do begin res[i]: a[i]+b[i]+x ?mod?10; x: a[i]+b[i]+x ?div?10 end; if?lena lenb?then remain lenb,lena,x,a ; if?lena lenb?then remain lena,lenb,x,b ; if? lena lenb ?and? x 0 ?then begin len: len+1; res[len]: x; end; end; *?反向输出?* procedure?print ; var i:byte; begin for?i: len?downto?1?do write res[i] ; writeln; end; *?main?* begin readln s1 ; readln s2 ; revolve a,s1 ; revolve b,s2 ; addx ; print ; end. 算法与实例：1、求任意位数的加法运算【问题分析】：、数据的接收和存储采用字符串输入的方式，设参与运算的两个数分别为A和B，利用字符串函数把字符串转化为数值，将A、B中的每一位数字分别存储在A、B两个数组中，最低位在第一个单元中。 PASCAL语言中可以直接采用字符读取的方式来接收数据，而后通过ORD x -48的方式转化成数值。 、确定和的位数设LA为A的位数，LB为B的位数，则两数之和的位数最大为较大加数位数加1，即如果LA LB，则和的位数最大为LA+1。、进位处理进行加法处理时，先设置一个加法进位标志 T，并将 T 的初值设为 0。当两数相加时，从低位到高位，各位数字分别相加，如果相加后某个单元中的数大于 10，则将该单元中的数减去10，并将进位标志 T 设为 1，当对下一单元进行相加时，还要再加上前一个单元的进位标志 T。同时将 T 再次置为 0，不断重复，直到最高位为止。! 程序清单：program gjdjs;const n 100;type arrtype array[1..n] of integer;vara,b:arrtype;t,s,j,l:integer;procedure readdata var int:arrtype ;varch:char;i,k:integer;beginwriteln Input a number: ;read ch ;k: 0;while ch in[0..9] do begininc k ;int[k]: ord ch -48;read ch ;end;for i: k downto 1 do beginint[n+i-k]: int[i];int[i]: 0;end;end;beginreaddata a ;readln;readdata b ;writeln;t: 0;for j: n downto 1 do begins: a[j]+b[j]+t;a[j]: s mod 10;t: s div 10;e