【正文】 void parse(char *s, int *a){ int i,j。 } } void add(int *a, int *b, int *sum){ int i,c。 } } } 改進 ? array 改成 byte的元素 . (省空間 ) ? 更省 ? 一個元素就可以到 255, 256才進位 . ? 用 bool ? 用 link list 方式 (可以讓輸入的數字更大 ) ? 其他 ? 減法 ? 乘法 ? 除法 ? ? 同樣的原理 . 大數運算 ? 現將一些關鍵算法的實現方法描述如下： 大數的一些簡單計算的算法 ? 大數加法運算的實現算法 ? (1)將 A、 B按位對齊； ? (2)低位開始逐位相加； ? (3)對結果做進位調整； ? 大數減法運算實現算法 ? (1)將 A、 B按位對齊； ? (2)低位開始逐位相減； ? (3)對結果做借位調整； 大數運算 ? 大數乘法運算實現算法 ? (1)引入 sum2 、 sum1中間過渡量； ? (2)在 n的每一位上處理 m； ? (3)通過每一層循環(huán)，實現乘法的加法化； ? (4)對結果做進位調整； ? 大數除法運算的算法實現 ? (1)引入 al來標識 a的長度 , bl來標識 b的長度； ? (2)測算 a和 b的長度； ? (3)高位開始，對位做減法，并完成借位； ? (4)高位開始逐位計算商 ? (5)整理商 , 產生余數 。 ? for (i=2。i++){sum2[i]=0。i++)//通過每一層循環(huán)，實現乘法的加法化 ? { for (s=1。k++) ? product[k]=sum2[kj+1]+product[k]。 ? result = 0。 // a b。 ? for(i = 0。 ? break。 i++)//高位開始 ? { while(cmp(t, al2, b, bl)!=1)//比較 a、 b首位大小 ? { for(j = 0。//高位開始逐位計算商 ? } ? al2。怎樣構造這種安排，即算法構造問題； 4。 2。 構造性算法 ? 一個組合問題，已經判定解是存在的，甚至已經推知有多少解，但關鍵還在于把解構造出來，有的哪怕出一個解也好。例如， 8“車”問題有多少個不同的安全狀態(tài)。 回溯方法 ? 需要用計算機求解的組合試題一般有兩種類型： 1。 ? 2 算符（ operator） 算符是把問題的一個狀態(tài)變換到另一個狀態(tài)的方法代號。 當 n＝ 4時，初始狀態(tài)：空棋盤， 試放的順序是從左至右，自上而下 （ ） ? 求解 n皇后問題，無非就是做兩件事： ? 1。 算法框架 ? Program search ? Var ? stack:array[1..maxdepth] of node。問有多少種排隊方式可使售貨員能依次順利地出售貨物，而不出現找不出錢的局面。 ? Const maxn=50。 ? until (a1) and (a=maxn)。 ? for i:=3 to a do ? for j:=3 to b do ? if (odd(r[i1,j]) or (odd(r[I,j1])) then ? r[I,j]:=r[i1,j]+r[I,j1] ? else r[I,j]:=r[i1,j]+r[I,j1]1。 排列組合與計數問題 ? 兩個基本計數原理 ? 加法原理 ? 乘法原理 ? 排列問題 ? 線排列 從 n個不同的元素中，取 r個按次序排列，稱為從 n中取 r個排列，其排列數記為 P（ n， r） ? ? ? 圓排列 從集合 S＝ {a1,a2,…,an} 的 n個不同元素中，取出 r個元素按照某種次序排成一個圓圈，稱這樣的排列為圓排列。換言之，任意 n－ 1個人在一起，至少缺少一種開鎖的密碼特征，故不能打開電子鎖，剩下的 m(n1)個人中的任意一個人到場，就一定能將鎖打開。 m＝ 4 N＝ 2 Make(1,0) 開始遞歸 母函數 ? 二項展開式 ? 從組合學角度看，相當于 (x+y)…(x+y) 共 n個括號相乘相當于 n個無區(qū)別的球，放到x， y兩個編號不同的盒子中，每個盒子放入的球數不限。 ? Var k,M: integer。 ? Procedure Solve(step, index,sum: integer)。 ? repeat write(‘k=’)。 ? readln。 {指針 } ? node＝ record {項結點 } ? time: integer。 ? End。r:link)。 ? r^.next:=r^.next^.next。 ? r^.next:=t。 ? read(f,a,time)。 ? read(f,a,time) {讀入當前多項式的下一項 } ? until (a=0) or eof(f)。 {打印結果 } ? Begin ? if rnil then begin ? write(‘a’,r^.time, ‘_’,r^.a:3:0,’ ‘)。 結束語 ? 組合數學中的算法很多，有一定的難度 ? 希望大家在掌握組合數學基本概念和基本原理的基礎上，適當作一些中等難度的題目。 ? end。 {再讀下一項 } ? if not eof（ f） {若當前項不是最后一項，則將當前展開的結果轉賦給 p，釋放以前各多項式的展開式 } ? then begin ? t:=p； p:=r。 r^.next:=nil。 ? Else add(time, a, r^.next) {往下遞歸合并 } ? End。 ? end。 ? r^.next^.time:=time。 {釋放 P鏈 } ? Begin ? if pnil then begin ? free(p^.next)。 {系數 }； ? next： link {指向下項的指針 } ? end； ? Var ? p,r :link。這個系數序列對研究組合問題有相當重要的意義。 ? until k in [1..m]。在 index..M之間選擇某值 i，使得前 step項的數和加上 i后小于等于 M} ? If sum+i=m then ? begin ? ans[step+1]:=I。 {存儲方案 } ? T