Ejercicio N|2 Raiz Cuadrada

Raíz cuadrada

PROGRAM Raiz (INPUT, OUTPUT);

(* Obtener la raíz cuadrada de un número real x cualquiera.*)

VAR

  Valor, Resultado: REAL;

BEGIN

  WriteLn ('** Calcular la raíz cuadrada **');

  Write ('Introduzca el valor: '); ReadLn (Valor);

(* Raíz cuadrada del valor absoluto de x para evitar raíces imaginarias *)

  Resultado := sqrt (abs (Valor));

  Write ('La raíz cuadrada de ', Valor, ' es ');

  IF Valor < 0 THEN (* Si es negativo, el resultado es imaginario *)

    WriteLn (Resultado ,'i')

  ELSE

    WriteLn (Resultado);

  Write ('Pulse [Intro] para finalizar...');

  ReadLn

END.