Ejemplos de Lenguaje de Pascal

Raíz cuadrada

program raiz (input, output);

 uses crt;

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

 var x, y: irreal;

 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, ' es ', y);

   writeln;

   writeln('** Fin **');

 end.

  

Suma

program suma; uses crt;                                                        

var x,s:integer;                                                              begin                                                                        

     clrscr;                                                                 

     x:=1;                                                                   

     s:=0;                                                                    

     repeat                                                                  

           s:=s+x;                                                           

           x:=x+1;                                                            

     until x=50;                                                             

     writeln('la suma es  ',s);