Const MaxN=225; Type NType=Array[1..MaxN]Of Integer; Var Len:Byte; A,B,C:NType; Procedure Origin; Var I,TempLen:Byte; TempString:String; Begin Len:=0; Fillchar(A,Sizeof(A),0); Readln(TempString); TempLen:=Length(TempString); If TempLen>Len Then Len:=TempLen; For I:=0 To TempLen-1 Do A[MaxN-I]:=Ord(TempString[TempLen-I])-48; Fillchar(B,Sizeof(B),0); Readln(TempString); TempLen:=Length(TempString); If TempLen>Len Then Len:=TempLen; For I:=0 To TempLen-1 Do B[MaxN-I]:=Ord(TempString[TempLen-I])-48; End; Procedure Lend(I:Byte); Begin If A[I]<=0 Then Lend(I-1); Dec(A[I]); A[I+1]:=A[I+1]+10; End; Procedure Main; Var I:Byte; Begin For I:=MaxN Downto MaxN-Len+1 Do Begin If A[I]0 Then Write(C[MaxN-Len+1]); For I:=MaxN-Len+2 To MaxN Do Write(C[I]); Writeln; End; Begin Origin; Main; PrintOut; End. Const MaxN=225; Type NType=Array[1..MaxN]Of Integer; Var Len,B:Byte; A,C:NType; Procedure Origin; Var I,TempLen:Byte; TempString:String; Begin Len:=0; Fillchar(A,Sizeof(A),0); Readln(TempString); TempLen:=Length(TempString); Len:=TempLen+1; For I:=0 To TempLen-1 Do A[MaxN-I]:=Ord(TempString[TempLen-I])-48; Readln(B); End; Procedure Main; Var I,Over:Byte; Begin Over:=0; For I:=MaxN Downto MaxN-Len+1 Do Begin Over:=A[I]*B+Over; C[I]:=Over Mod 10; Over:=Over Div 10; End; End; Procedure PrintOut; Var I:Byte; Begin If C[MaxN-Len+1]>0 Then Write(C[MaxN-Len+1]); For I:=MaxN-Len+2 To MaxN Do Write(C[I]); Writeln; End; Begin Origin; Main; PrintOut; End. 累死了。。。給點錢吧。。。呵呵。。。

我記得以前學Pascal的時候也搞過高精度運算，挺煩的但還挺有意思的。兩個高精度數相減的話，得先把它們當成字符串讀進來，然后從個位開始一位一位減，注意借位的問題，比如前一位不夠減就得向前借1當10用。還得判斷哪個數大，避免負數處理太麻煩，可以先比較大小再決定誰減誰，最后去掉前面多余的0就行。這個寫起來代碼有點長，但邏輯理清楚就沒問題

其實Pascal處理高精度不像C++那么靈活，但也不是不行。做減法時我習慣先把兩個字符串反轉，這樣從左到右處理更順，減完再反轉回來，順便去掉前導零。至于乘一位數，關鍵是不能直接轉成整型算，會溢出，必須逐位乘然后累加進位。我那時候還寫了個小函數來比較兩個高精度數大小，用來判斷減法是否要加負號。總之多測試幾組數據，比如邊界情況，像0減某個數或者乘0的情況，不然容易翻車

高精度乘法其實比減法還簡單點，尤其是只乘一位數的情況下。你把那個大數存成數組或者字符串，然后從最低位開始每位都乘以那個一位數，然后處理進位，比如乘完超過9就得往前進位，下一位加上進位值。只要注意數組長度別越界，最后逆序輸出或者正著存好就行。我當時調試的時候老忘進位清零，結果出錯，后來加了打印中間過程才搞定，建議你也一步步調試看看