--AUTOR: Jose Luis VILLARIG GARCIA (V2975813) 472542@cepsz.unizar.es
--PROYECTO: Practicas de Intr. Programación 99/00. Práctica2 -Ej.1.1.3
--FICHERO: raiz.adb
--FECHA: Octubre-Noviembre 1999
--Modidicado por:
--Fecha modificacion:
--Descripcion: Este programa haya la raiz cuadrada de un numero pedido
with text_io, Ada.float_text_io;
use text_io, Ada.float_text_io;
procedure raiz is
   --declaración de constantes y variables
   g,h,n: float;

begin
   put("Introduce el numero: ");
   get (n);
   g := 0.0;
   h := 1.0;

   While g /= h loop
      g := h;
      h := 0.5*(g+n/g);

   end loop;
   put("La raiz es: ");
   put(h,0,5,0);

end raiz;