高精度计算9527.pptVIP

第一章 高精度计算 【上机练习】 求N！的值 program ex1-1; var i,j,n,w : longint; a : array[1..1000] of integer; procedure jc(k : longint); var x,i : longint; begin x := 0; for i := 1 to w do begin a[i] := a[i]*k+x; x := a[i] div 10; a[i] := a[i] mod 10; end; while x0 DO begin w := w+1; a[w] := x mod 10; x := x div 10; end; end; 3、求n累加和【问题描述】用高精度方法，求s=1+2+3+……+n的精确值(n以一般整数输入)。【输入样例】ja.in 10【输出样例】ja.out 55 program ex1-3; var i,w,n : longint; a : array[1..100] of longint; procedure jia(k : longint); var j,x : longint; begin x := a[1]+k; w := 0; while x0 do begin w := w+1; a[w] := x mod 10; x := a[w+1]+x div 10; end; end; program work1 const maxn=10000; type sz=array[1..maxn] of byte; var a,b,c:sz; i,j,m,n,lena,lenb,l:integer;  procedure add(var a,b,c:sz);{高精度加法，等价于c=a+b;a=b;b=c} var i:integer; begin if lenalenb then l:=lena else l:=lenb;  for i:=1 to l do c[i]:=a[i]+b[i];  for i:=1 to l do  if c[i]=10 then  begin  c[i]:=c[i]-10;  c[i+1]:=c[i+1]+1;  end; if c[l+1]0 then l:=l+1; a:=b;lena:=lenb;b:=c;lenb:=l; end;  单汉诺塔： 1：1 2：3 3：7 4：15 …. 15=7*2+1 7=3*2+1 3=1*2+1 a[n]=a[n-1]*2+1; a[n]=2n-1 program a4; var n,i,j:integer; a:array[1..100] of 0..9; procedure ppp(k:integer); var i,j,w,s:integer; begin a[1]:=1; w:=0; for i:=1 to k do for j:=1 to 100 do begin s:=a[j]*2+w; a[j]:=s mod 10; w:=s div 10; {进位} end; end; * * 利用计算机进行数值计算，有时会遇到这样的问题：有些计算要求精度高，希望计算的数的位数可达几十位甚至几百位，虽然计算机的计算精度也算较高了，但因受到硬件的限制，往往达不到实际问题所要求的精度。我们可以利用程序设计的方法去实现这样的高精度计算。介绍常用的几种高精度计算的方法。 高精度计算中需要处理好以下几个问题： (1)数据的接收方法和存贮方法 数据的接收和存贮：当输入的数很长时，可采用字符串方式输入，这样可输入数字很长的数，利用字符串函数和操作运算，将每一位数取出，存入数组中。另一种方法是直接用循环加数组方法输入数据。 (2) 高精度数位数的确定 位数的确定：接收时往往是用字符串的，所以它的位数就等于字符串的长度。 (3) 进位,借位处理 加法进位：C[i]:= A[i]+B[i]; if C[i]=10 then begin C[i]:= C[i] mod 10; C[i+1]:= C[i+1]+1