Preguntas de programación en VB, método de iteración de Newton.

Función privada Newton(n como doble, eps como doble) como doble

Atenuar a(100) como doble

Atenuar x como doble

Atenuar y como doble

Atenuar k como doble

a(0) = 0

Para i = 0 a 99

x = a(i)

y = x ^ 3 - 2 * x ^ 2 + 4 * x + 1

k = 3 * x ^ 2 - 4 * x + 4

a(i + 1) = x - y / k

Imprimir a(i + 1)

Si Abs(y) < esp Entonces

NewTon = a(i + 1)

Salir de la función

Else

NewTon = 0

Fin si

Siguiente i

Finalizar función