Lenguaje de programacion pascal

  es un lenguaje de programación  desarrollado por el profesor suizo Niklaus Wirth.

 Su objetivo era crear un lenguaje que facilitara el aprendizaje de programación a sus alumnos


RAIZ CUADRADA:

 program raiz(input, output);
 uses wincrt;
 (*Obtener la raíz cuadrada de un número real x cualquiera.*)
 
 var x, y: real;
 respuesta: string;
 
 begin
   writeln('** Calcular la raíz cuadrada de 12 **');
   writeln('Entrar x (> 0): '); 
   readln(x);
   y := sqrt(abs(x)); (* Raíz cuadrada del valor absoluto de x para evitar raíces imaginarias *)
   writeln;
   if (x<0) then (* Si x es negativo, el resultado se notifica como imaginario *)
      writeln('La raíz cuadrada de ', x, ' es el número imaginario ', y,'i')
   else
      writeln('La raíz cuadrada de ', x:1:2, ' es ', y:1:2);
   writeln; 
   writeln('** Fin **');
 end