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.





PAGINA PRINCIPAL