Resuelve los códigos para calcular pi en bat, lenguaje C y VB.
El algoritmo [líder de MA] lo explicó muy claramente y publicó el código directamente.
C: #incluir?
long?a?=?10000,?b,?c?=?2800,?d,?e,?f[2801],? g;
principal()?
{?
para(;?b-c;?)?
f[b]? =?a?/?5;
for(;?d?=?0,?g?=?c?*?2;?c?-=?14,?printf(.4d, ?e? ?d?/?a), ?e?=?d??a)
para(b?=?c; ?d? =?f[b]?*?a, ?f[b]?=?d?--?g, ?d?/?=?g--, ?--?b; ?d?*=?b);
} V.B. ：Dim?sum?As?Double,?t?As?Double
Dim?N?As?Integer
N?=?6?'N es la precisión del cálculo, la cuanto mayor sea, mejor ¿Preciso, pero la operación es más lenta?
sum?=?0:?t?=?1
Do
sum?=?sum ?(- 1)?^?(t? ?1)?/?(2?*?t?-?1)
t?=?t?1
Magbox?4?*?sum
BAT: @echo?off?
SETLOCAL?ENABLEDELAYEDEXPANSION?
set?pi=400000000
set?t=0
set?p=3
set?times=0
set?det=-1
set?p1=-3
：bucle
set?/a?
t=400000000/p1
set?/a ?pi=pi t
set?/a?p=p 2
set?/a?det=det*-1
set?/a ?
p1=p*det
set?/a?times=times 1
if?times?geq?4000?goto? ex?:: ?Se puede escribir como?if?times?geq?40000?goto?ex
goto?loop
：ex
set?/ a?pi=pi100000000
echo?result?3.pi
pausa