Question

求一个C语言程序，是一个求π的要求精确到小数点后100位的程序。。。。。。

Answer 1

Private Sub Command1_Click()
Dim a As Long, b As Long, d As Long, e As Integer, f(801) As Long, g As Long
Dim i As Long
Dim res As String
Dim index As Long
a = 10000
c = 800
For i = 0 To c
f(i) = a / 5
Next i
'预留足够长的缓冲空间
res = Space(9000)
'指针变量，指出在哪里插入字符串
index = 1
Do While (c <> 0)
d = 0
g = c * 2
b = c
Do While (1)

d = d + f(b) * a
g = g - 1
f(b) = d Mod g
d = Fix(d / g)
g = g - 1
b = b - 1
If b = 0 Then GoTo 22
d = d * b
Loop
22:
c = c - 14
substr = Format(Fix(e + d / a), "0000")
'填充字符串的相应区间段数值
Mid$(res, index, 4) = substr
'调整指针变量
index = index + 5
If index > 101 Then Exit Do '只显示100位
e = d Mod a
Loop
'删除多余字符
res = Left$(res, index - 1)
Text1.Text = res
Debug.Print index
End Sub

Answer 2

这个事要计算的，算法如下。
#include <stdio.h>

long a=10000, b, c=400, d, e, f[401], g;

void main()
{
for(;b-c;)
f[b++]=a/5;
for(;d=0,g=c*2;c-=14,printf("%.4d",e+d/a),e=d%a)
for(b=c; d+=f[b]*a, f[b]=d%--g, d/=g--, --b; d*=b);
scanf("%s");
}

Answer 3

#include <stdio.h>long a=10000, b, c=400, d, e, f[401], g

void main()
for(;b-c;)
f[b++]=a/5;
for(;d=0,g=c*2;c-=14,printf("%.4d",e+d/a),e=d%a)
for(b=c; d+=f[b]*a, f[b]=d%--g, d/=g--, --b; d*=b);
scanf("%s");

Answer 4

printf("101.100%lf",n);