Programación VB: utilice el método iterativo para encontrar la raíz cuadrada de un determinado número a. La fórmula iterativa para raíces cuadradas es la siguiente:

Private?Sub?Command1_Click()

'Programación VB: use la iteración para encontrar la raíz cuadrada de un determinado número a? La fórmula de iteración para la raíz cuadrada es la siguiente:

'xn 1=(xn a/xn)/2;?Supongamos x0=a/2;

'Cuando el valor absoluto de la diferencia entre dos elementos adyacentes en la iteración es menos de 10-5, la iteración finaliza. Dim?a?As?Doble,?Xn?As?Doble,?X?As?Doble,?Delt?As?Doble a?=?Val(Text5.Text) Xn?=?a?/?2 Delt?= ?0.00001 X?=?(Xn? ?a?/?Xn)?/?2 Hacer?Mientras?Abs(X?-? /p>

X?=?(Xn? ?a?/?Xn) ?/?2 ¿Imprimir bucle?X

Fin?Sub