9.- EJEMPLOS

suma:

program suma; uses crt;                                                         

 var x,s,r:integer;                                                              

 begin                                                                         

 clrscr;                                                                                                                                                                                                         

   writeln('Ingrese un numero');

   readln(x);

   writeln('Ingrese otro numero');

   readln(s);

   r:=x+s;                                               

   writeln('la suma es:  ',r);

readln;                                            

end.

Raíz 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.