中国DOS联盟

n=100

for i = 1 to n

  str=2+(n+1-i)/((n+1-i)*2+1)*str

next

msgbox str

@echo off

setlocal EnableDelayedExpansion

set str=1

for /l %%i in (100,1,1) do set/a str=2+%%i/(%%i*2+1)*!str!

echo %str%

pause

Originally posted by zh159 at 2008-4-30 05:11 PM:
这个VBS的很快，不过受VBS限制位数

n=100

for i = 1 to n

  str=2+(n+1-i)/((n+1-i)*2+1)*str

next

msgbox str

如果转为批处理则为：

@echo off

setlocal E ... 

'将那个C的代码用VBS处理了下,速度很快,因为是
'每位用一个数处理的,所以没有位数限制。
'恩,记得用CScript调用……

'这个是连续运算最后输出,比一行一行的输出速度快。

Dim b, c, d, e,n, f()
n = 1000 '在这里定义位数
c = n / 4 * 14
ReDim f(c)
For b = 0 To c
f(b) = 2000
Next

Do While(c)
b = c
d = f(b) * 10000
f(b) = d Mod (b * 2 - 1)
d = d \ (b * 2 - 1)
b = b - 1
Do While(b)
d = d * b + f(b) * 10000
f(b) = d Mod (b * 2 - 1)
d = d \ (b * 2 - 1)
b = b - 1
Loop
c = c - 14
i = e + d \ 10000
i = Right("0000" & i,4)
If k < 10 Then
k = k + 1
ShowLine = ShowLine & i
Else
k = 0
'WSH.Echo ShowLine
ShowLine = ShowLine & vbCrLf
End If
e = d Mod 10000
Loop
WSH.Echo ShowLine

Originally posted by xtanbmy at 2008-5-1 03:52:
大虾们，能不能把结果输出到一个文本文件中呀？

355/113=3.1415926535897...

Originally posted by PPdos at 2008-5-1 08:54:
古算术法

Originally posted by PPdos at 2008-5-1 08:54:
古算术法