2高精度的十进制运算精选.ppt

高精度运算 数据类型的转换 type numtype= array[1..500]of word； { 整数数组类型} var a，b:numtype； {a和b为整数数组} la，lb:integer；{整数数组a的长度和b的长度} s:string； {输入数串} 将数串s转化为整数数组a的方法如下： k←length(s)； for i←1 to k do a[k-i+1]←ord(s[i])-ord(‘0’)； 加法运算c←a+b(a、b、c为numtype类型) var a,b,c:array[1..201] of 0..9; 　　 n:string; lena,lenb,lenc,i,x:integer; begin write(Input augend:); readln(n); lena:=length(n); {加数放入a数组} for i:=1 to lena do a[lena-i+1]:=ord(n[i])-ord(0); write(Input addend:); readln(n); lenb:=length(n); {被加数放入b数组}