Ejemplos Pascal

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.

Este ejemplo trata de realizar una raíz cuadrada.Hay dos variables X e Y.

Acepta los números mayores de 0.

Realiza la raíz cuadrada del valor absoluto a los números para evitar raíces imaginarias.

El número resultante es el resultado.

Multiples

 program multi;
 
 {$APPTYPE CONSOLE}
 
 uses
   SysUtils;
 
 var  n,x:integer;
 
 begin
   x:=0;
   writeln('Entra un numero de la serie');
   readln(n);
   while n<>0 do
    begin
     if (n mod 3)=0 then
      begin
       x:=x+1;
       writeln('Dame otro numero');
       readln(n);
      end
     else
      begin
       writeln ('Dame otro numero');
       readln(n);
      end;
    end;
    writeln ('El numero de multiples de 3 es',x);
 end.

Este ejemplo trata de realizar una multiplicación. Hay dos variables N y X.

Se coge un número que sea menor o mayor que 0. Si el número es igual que 0 se le suma 1 para que sea múltiplo de 3.

El número resultante es el resultado (que es múltiplo de 3).

Exponenciación

 Program Exponeciacion;
 Uses
   Crt,Dos;
 Var
   a,b,c,i:Integer;
 Begin
   ClrScr;
   Write('Base: ');
   ReadLn(a);
   Write('Exponente: ');
   ReadLn(b);
   c:=1;
   For i:=1 To b Do
     Begin
     c:=c*a;
   End;
   WriteLn('');
   Write('Resultado: ',c);
   ReadKey;
 End.

Hay 4 variables: A, B, C e I.

Primero se escribe un número base al que vamos a poner el exponente.

Comprobamos que el exponente sea 1 y ejecutamos la acción.

El número que nos de es el resultado.