DISEÑE UN PROGRAMA QUE NOS PERMITA OBTENER LA RAÍZ CUADRADA DE UN NÚMERO
program raiz(input, output);
(*
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 x **');
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 **');
readln; (* Espera a que el usuario pulse enter para salir del programa *)
end.
DISEÑE UN PROGRAMA QUE NOS PERMITA SUMAR
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);
readln;
end.
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 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;
writeln ('El numero de multiples de 3 es',x);
readln;
end.