【正文】 、1,0001,0001。+。+。+。 輸入和輸出形式是按中國對于長整數(shù)的表示習(xí)慣，每四位一組，組間用逗號隔開，長整數(shù)位數(shù)沒有上限，以分號結(jié)束長整型數(shù)據(jù)的輸入。 程序執(zhí)行的命令包括：1） 、輸入長整數(shù) 1；2 ） 、輸入長整數(shù) 2；3） 、輸入執(zhí)行的運算符；4 ） 、計算并輸出結(jié)果；5） 、結(jié)束。應(yīng)輸出“0” 。應(yīng)輸出“－1,0000,0000” 。應(yīng)輸出“9999,0000,0001”.（4） 、1,0001,0001。－1,0001,0000。－9999,9999,9999。+。struct DuCiLinkNode *prior。 //以 4 位整數(shù) e 構(gòu)造 1 個雙向循環(huán)鏈表結(jié)點Status InitList(DuCiLinkList *L)。 //在雙向循環(huán)鏈表 L 的尾結(jié)點之后加入 1 個以 e 為//數(shù)據(jù)域的新結(jié)點,并返回 OK。 否則返回 ERROR。//采用雙向循環(huán)鏈表為實際的存儲結(jié)構(gòu)void add(LongInt c,LongInt a,LongInt b)。 //長整型數(shù) c = a / b (整除)void factorial(LongInt c,LongInt a)。 //將 CString 型數(shù) a 轉(zhuǎn)化成LongInt五、存儲結(jié)構(gòu)的定義typedef short ElemType。 //指向下一結(jié)點}DuCiLinkNode,*DuCiLinkList。return s。(*L)prior = (*L)。p = (*L)prior。 free(s)。while(p!=L){s = p。Lprior = L。Cdata = Ldata。 //存儲分配失敗sdata = pdata。Cnext = s。 否則返回 ERROR。 //存儲分配失敗sdata = e。第 6 頁 共 40 頁Lprior = s。DuCiLinkNode *s。Lnextprior = s。return OK。struct DuCiLinkNode *prior。 //以 4 位整數(shù) e 構(gòu)造 1 個雙向循環(huán)鏈表結(jié)點Status InitList(DuCiLinkList *L)。 //在雙向循環(huán)鏈表 L 的尾結(jié)點之后加入 1 個以 e 為數(shù)據(jù)域的新結(jié)點,并返回 OK。 否則返回 ERROR。 //進(jìn)位LongIntNode *pa,*pb。amp。 /*當(dāng)前組的數(shù)值*/if (!InsFirst(c,sum)) return ERROR。}while(pa!=a)/* a 中還有沒加的組時，補(bǔ)到和上去*/{sum = padata + carry。pa = paprior。sum = sum % 10000。}if(carry)/* 如果還有進(jìn)位*/{if (!InsFirst(c,carry)) return ERROR。LongIntNode *pa,*pb,*pc,*s。amp。}else borrow = 0。cdata++。}else borrow = 0。}第 11 頁 共 40 頁if(borrow || pb!=b) return PleaseExchange。 pcnext != c){/*相減可能造成前幾節(jié)數(shù)據(jù)為 0，需要刪除，結(jié)果為零時不能將0 刪除完*/s = pc。free(s)。cdata *= (adata=0)?1:1。}else/* a 夠 b 減 */{cdata *= (adata=0)?1:1。}第 13 頁 共 40 頁void mul(LongInt c,LongInt a,LongInt b){long product,carry=0。 /*從 a 的尾結(jié)點，即最后一個 4 位組開始*/pcend = c。/*記錄乘數(shù)應(yīng)加到積的哪一組*/pb = bprior。/*余數(shù)，也即當(dāng)前組的值 */if (pccur == c) /*需要新的結(jié)點來存放數(shù)據(jù)*/{InsFirst(c,(short)product)。if (sum 9999){carry++。 /*移動乘積數(shù)的當(dāng)前指針*/pb = pbprior。/*清空進(jìn)位器，并將 4 位數(shù)組數(shù)加 1*/}第 15 頁 共 40 頁pcend = pcendprior。while (pcdata == 0 amp。cnext = pc。}}void Addn(LongInt c, short n){ /*一個正的長整型加一個最大為 20220 的正數(shù)*/short carry = n,sum。amp。pcdata = sum。sum = sum % 10000。short i = 0,EnoughSub。 bnextdata == 0) return OVERFLOW。d)。 /* e = a */EnoughSub = UnsignedSub(d,e,b)。}ClearList(e)。}Addn(c,i)。DestroyList(amp。第 18 頁 共 40 頁return OK。(apriordata==1 || apriordata==0)){InsFirst(c,1)。InitList(amp。CopyList(CStringtoLongInt(1),b)。while(a!=start){while(adata0){ClearList(c)。ClearList(b)。adata。if (n==0){InsFirst(c,0)。}InitList(amp。in2。ClearList(c)。}CString LongInttoCString(LongInt a){CString str,temp。p=anext。if(p!=a)str+=,。LongInt l。if((1)==){f=1。i=i5){第 22 頁 共 40 頁c++。}ldata=c*f。 //長整型數(shù) c = a + bvoid sub(LongInt c,LongInt a,LongInt b)。 //長整型數(shù) c = a! (階乘)void power(LongInt c,LongInt a,int n)。endif/////////////////////////////////////////////////////////////////////////////// CAboutDlg dialog used for App Aboutclass CAboutDlg : public CDialog{public:第 24 頁 共 40 頁CAboutDlg()。CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD)第 25 頁 共 40 頁{//{{AFX_DATA_INIT(CAboutDlg)//}}AFX_DATA_INIT}void CAboutDlg::DoDataExchange(CDataExchange* pDX){CDialog::DoDataExchange(pDX)。//{{AFX_DATA_MAP(CNewCountDlg)DDX_Radio(pDX, RADIO_ADD, m_radio)。ASSERT(IDM_ABOUTBOX 0xF000)。if (!()){pSysMenuAppendMenu(MF_SEPARATOR)。 // Set big iconSetIcon(m_hIcon, FALSE)。()。// Center icon in client rectangleint cxIcon = GetSystemMetrics(SM_CXICON)。rect)。}else{CDialog::OnPaint()。m_editRESULT=。SetDlgItemText(EDIT_RESULT,)。A)。R)。A=CStringtoLongInt(CA)。SetDlgItemText(EDIT_RESULT,CR)。SetDlgItemText(EDIT_RESULT,CR)。SetDlgItemText(EDIT_RESULT,CR)。}else{SetDlgItemText(EDIT_RESULT,出錯，除數(shù)不能為0)。SetDlgItemText(EDIT_RESULT,CR)。SetDlgItemText(EDIT_RESULT,CR)。在參考了別人的方法后，恍然大悟