Pascal 使用高精度方法求出 s 1 2 3 n 的精確值

二樓。 你準備好從 1 到 n 乙個接乙個地加起來了嗎？

房東。 使用公式 s=n*（n+1）。

高精度乘法是可以的。

我不知道，你想有多高？

如果需要 100 位，則必須有陣列。

讓我們從幾種進行電源操作的方法開始：

可以按符號傳遞"** 已實現，但範圍有限，大約在2 31左右。

這可以通過 exp（x*ln（y）） 來計算 y 的冪到x次方，但結果是乙個實數。

而一樓的答案顯然太複雜了。

**具體如下： 方法一：

varn,i:integer;

varans:longint;

beginans:=1;

fori:=1ton

doans:=ans+i**i;

writeln(ans);

end.這種方法很簡單，但範圍有限，n最大值約為9個方法二：var

n,i:integer;

varans:extended;

beginans:=1;

fori:=1ton

doans:=ans+exp(i*ln(i));

writeln(ans);

end.這種方法的範圍已經擴大了，但輸出的數量是科學計算和唯一攻擊數方法表示的真實懷山握數。

方法三：採用高精度加法、高精度乘法和字元引線清復字串的組合，演算法非常複雜，理論上可以計算到無窮大，但計算機的處理能力有限，所以在實踐中不會超過乙個極限。 （**過於複雜）。

階乘的計算。

問題描述。 輸入整數 n（1<=n<=1000） 並輸入 n！的確切值。

分析：當n較大時，n！是乙個非常大的數字，帕斯卡的實數和整數型別都無法儲存，所有這些都是高精度計算的。

這個問題的情況比較特殊，我們可以把n！把它看成（n-1）！*n，因此乘法涉及的兩個數字中的乙個是高精度數字（n-1）！，另乙個是正則整數 n

讓我們看看如何獲得 n！例如 12！ =12*11！=12*39916800，舉例說明計算過程：

陣列 a（2） 在進行計算時將 a 中的每個元素乘以乘數（此處為 12），結果儲存在當前位中，上面的陣列 a 乘以 12，中間結果為：下標 k

陣列 a（3） 將在每次乘積操作後處理進位，如上例所示，a[3] 將攜帶 9 到 a[4]，a[3]=6，a[4]=81，a[4] 將 8 帶到 a[5]，a[4]=1，a[5]=20，a[5] 到 a[6] 進位 2，a[5]=0， a[6]=110，a[6]到a[7]攜帶11，a[6]=0，a[7]=119，a[7]到a[8]。攜帶 11，攜帶後，a[7]=9，a[8]=47，a[8] 到 a[9] 攜帶 4，攜帶後 [8]=7，a[9]=4，a[9] 不必攜帶到 a[10]，直到一些攜帶處理完成。經進位處理後，儲存在 a 陣列中的資料如下： 下標 k

陣列 A：陣列 A 中儲存的數字是 12！=479001600，這與我們手動計算的結果相同。

varn,i,j,k,x,q:word;

a:array[1..3000]

ofword;

beginwrite('n=')readln(n);

fori:=1to

doa[i]:=0;

k:=1;a[1]:=1;

fori:=2ton

dobegin

forj:=1tok

doa[j]:=a[j]*i;

q:=0;for

j:=1tokdo

beginx:=a[j]+q;

a[j]:=xmod

q:=xdiv

end;while

q>0)

dobegin

k:=k+1;

a[k]:=qmod

q:=qdiv

end;end;

fori:=k

downto

dowrite(a[i]);

writeln;

writeln('k=',k);

end.