Un ejercico para los informaticos q dominen algoritmica..FAS?

Question

hola ...tengo un tareita para los monstruos de informatica ...bueno me pueden pasar este algoritmo a visual basic pues deseo la raiz cuadara , o si no me dan una respuesta de un algoritmo q imprima la raiz cuadrada para cualquier numero y un ejemplo ...
sin llamara la funcion raiz .
por fa ...ESTO ES UN RETO TIOS .


! ------------------------------------------------------------
! Fichero: RAIZ2.HOP
! Descripci'on: ra'iz cuadrada, con retorno y de cola
! ------------------------------------------------------------

dec raizDesde: num X num -> num;
--- raizDesde (n,a) <=
if (a+1)*(a+1)>n
then a
else raizDesde(n,a+1);

dec raizDelta: num X num -> num;
--- raizDelta (n,e) <=
if e*e>n
then 0
else let r == raizDelta(n,2*e)
in if (r+e)*(r+e) =< n
then r+e
else r;

dec main1: num;
--- main1 <= raizDesde (95,0);

dec main2: num;
--- main2 <= raizDelta (8,1);

Answer 1

¡No lo haré en visual basic! la implementación en un lenguaje especifico es tu trabajo, además esta es la sección de matemáticas, no de Programación y diseño.

Este es el algoritmo babilónico (reducido por mi) para aproximar la raiz cuadrada de un número "x". No es el más eficiente pero es el más rápido de implementar:

raiz(x):
　a = x
　Mientras a*a - x ≠ 0:
　　a = a/2 + x/(2*a)
El resultado es a

Answer 2

antes de que te tu respuesta...............sabes hacer una raiz cuadrada a mano sin ayuda de calculadora?...........yo creo que no.