高精度练习题.docVIP

高精度var a,b,c:array[1..260] of integer; str1,str2:string; la,lb,lc,da,db,dc,p1,p2,i,j:integer; begin fillchar(a,sizeof(a),0); fillchar(b,sizeof(b),0); fillchar(c,sizeof(c),0); readln(str1); //读入数据 readln(str2); p1:=pos(.,str1); //小数点在字符串中的位置 p2:=pos(.,str2); if p10 then //是小数，为0表示没有小数点 begin da:=length(str1)-p1; //小数位数 delete(str1,p1,1); //从字符串中删除小数点 end else da:=0; //整数，小数位数为0 if p20 then begin db:=length(str2)-p2; delete(str2,p2,1); end else db:=0; if dadb then begin dc:=da; //结果为最长的小数位数 for i:=da-db downto 1 do str2:=str2+0;//在小数位数短的字符串后补0 end else begin dc:=db; for i:=db-da downto 1 do str1:=str1+0; end; la:= length(str1); for i:=1 to la do a[i]:=ord(str1[la-i+1])-ord(0); lb:= length(str2); for i:= 1 to lb do b[i]:=ord(str2[lb-i+1])-ord(0); if lalb then lc:=la else lc:=lb; //结果的长度 for i:=1 to lc do c[i]:=a[i]+b[i]; //按位相加 for i:=1 to lc do if c[i]=10 then begin c[i]:=c[i]-10; c[i+1]:=c[i+1]+1; end; if c[lc+1]0 then lc:=lc+1; j:=1; while (dc0) and (c[j]=0) do j:=j+1; //过滤小数点最后的0 for i:=lc downto dc+1 do write(c[i]); //输出整数部分 if (dc0) and (j=dc) then write(.); //小数就输出小数点 for i:=dc downto j do write(c[i]); //输出小数部分 end. 习题3. 高精度实数加法C＝A+B（A、B的长度不大于100000） 注意：A、B实数的长度不大于100000，那么相加结果C的最大位数可能为多少呢？ 例题2.高精度整数减法C＝A-B（A,B=0，长度不超过250） 算法：先比较A、B大小，AB时输出为正数，AB时输出为负数。 program gao_t2; type arr=array[1..250] of integer;//自定义数据类型 //子程序调用数组类型时，一般方法是先自定义数据类型为数组，再说明相应的数组变量。 var a,b,c:arr; //说明数组变量 str:string; la,lb,lc,i,j:integer; procedure init; //高精度整数输入 begin fillchar(a,sizeof(a),0); fillchar(b,sizeof(b),0); readln(str); la:= length(str); for i:=1 to la do a[i]:=ord(str[la-i+1])-ord(0); readln(str); lb:= length(str); for i:= 1 to lb do b[i]:= ord(str[lb-i+1])-ord(0); end; procedure substract(a,b:arr;la,lb:integer); //高精度整数减法，AB begin fillchar(c,sizeof(c),0)