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.
