Escuela de aproximación de cálculo de programación VB

¡La fórmula que diste es incorrecta! Debería ser π/2 = 2 ^ 2/1 * 3×4 ^ 2/3 * 5×. . . ×(

¡La precisión de esta fórmula no es alta! El código es el siguiente:

Atenuar PI1 al doble

Atenuar PI2 al doble

Temperatura tenue de doble precisión

Dim n es doble

PI1 = 0: PI2 = 2: n = 2

Y PI2 - PI1 >0.000001

PI1 = PI2

temp =(n * n)/((n-1)*(n+1))

PI2 = PI2 *temperatura

n = n + 2

Filas

i.Text1.