Pascal高精度運(yùn)算(加法篇)

1、高精度運(yùn)算加法篇1 類型數(shù)值范圍 占字節(jié)數(shù) Byte 0 . 255 1 Integer -32768.32767; 2 Longint -2147483648 . 2147483647 4當(dāng)數(shù)據(jù)超過1010以后我們就必須要用到高精度運(yùn)算2高精度算法入門高精度運(yùn)算是指參與運(yùn)算有數(shù)或運(yùn)算結(jié)果遠(yuǎn)遠(yuǎn)超過計(jì)算機(jī)語言中能夠表示的數(shù)的范圍的特殊運(yùn)算。例如:編程解決求A+B的值,其中A,B的值=1040 ;高精度運(yùn)算的思想就是運(yùn)用字符串和一維數(shù)組的方式模擬運(yùn)算口訣就是:用字符串讀入數(shù)據(jù)，轉(zhuǎn)化數(shù)據(jù)類型,用數(shù)組存儲數(shù)據(jù),并加以運(yùn)算： 3高精度運(yùn)算涉及到的問題：1、數(shù)據(jù)的輸入。2、數(shù)據(jù)的存儲。3、數(shù)據(jù)的運(yùn)算：進(jìn)位

2、。4、結(jié)果的輸出：小數(shù)點(diǎn)的位置、處理多余的0等。4高精度加法題目要求：輸入：第一行：正整數(shù)a。第二行：正整數(shù)b。已知：a和b（10240）。輸出：ab的值。樣例輸入：99999樣例輸出：10985、數(shù)據(jù)的輸入。a和b（len2 then len:=len1 else len:=len2;for i:=1 to len do ci:=ai+bi;直接先計(jì)算計(jì)算后的ci可能=10,怎樣處理？8處理進(jìn)位：for i:=1 to len do begin ci+1:=ci+1+ci div 10; ci:=ci mod 10; end;9、結(jié)果的輸出：數(shù)組c。if clen+10 then len:=

3、len+1;for i:=len downto 1 do write(ci);10begin readln(s1); readln(s2); j:=1; for i:=1 to 1000 do begin ai:=0;bi:=0;si:=0; end; for i:=length(s1) downto 1 do begin val(copy(s1,i,1),aj,c); j:=j+1; end; j:=1; for i:=length(s2) downto 1 do begin val(copy(s2,i,1),bj,c); j:=j+1; end; if length(s1)length(s

4、2) then max:=length(s1) else max:=length(s2); for i:=1 to max do begin si:=si+ai+bi; if si=10 then begin si:=si mod 10; si+1:=si+1+1; end; end; if smax+10 then max:=max+1; for i:=max downto 1 do write(si);end.11繼續(xù)思考a,b:array1.maxn of integer;在前面的運(yùn)算中我們定義數(shù)組中的數(shù)字為integer類型的值，但是我們知道integer的值數(shù)字可以表示-32000到

5、+32000之間的數(shù)字，是否有些浪費(fèi)？12高精度加法的應(yīng)用Fibonacci數(shù)列 Fibonacci數(shù)列的代表問題是由意大利著名數(shù)學(xué)家Fibonacci于1202年提出的“兔子繁殖問題”(又稱“Fibonacci問題”)。問題的提出：有雌雄一對兔子，假定過兩個月后便每個月可繁殖雌雄各一的一對小兔子。問過n個月后共有多少對兔子？已知：N=93。F(i):第i個月后共有的兔子對數(shù)。F(1)=1; F(2)=1;f(3)=2;f(4)=3;f(5)=5;f(6)=8;F(i)=f(i-2)+f(i-1)13N=93var f:array1.100 of longint; var n,i:integer;begin readln(n); f1:=1; f2:=1; for i:=3 to n do fi:=fi-2+fi-1; writeln(fn);end.14readln(n); a1:=1;b1:=2; for i:=3 to n do begin k:=0; for j:=1 to 2100 do begin cj:=aj+bj+k; k:=cj div 10; cj:=cj mod 10; end; a:=b;b:=c; end; k:=2100; while ck=0 do k:=k-1; for i:=k downto 1 do write(ci);15思考、高