Red de conocimiento informático - Problemas con los teléfonos móviles - VB encuentra el valor aproximado de pi. La fórmula es = 1- - ... (-1)(n 1)× hasta que el valor absoluto del último término sea muy pequeño.

VB encuentra el valor aproximado de pi. La fórmula es = 1- - ... (-1)(n 1)× hasta que el valor absoluto del último término sea muy pequeño.

Debería ser Pi/4=1-1/3 1/5-1/7 ... (-1)^(n-1)/(2*n-1), eh

Privado Sub Form_Load()

Atenuar Pi como único, i como largo

Form1.AutoRedraw = True

i = 1

Hacer

Pi = Pi (-1) ^ (i - 1) / (2 * i - 1)

i = i 1

Bucle hasta 1 / (i * 2 - 1) lt; 10 ^ (-6)

Pi = 4*Pi