Ejercicio n7 de la programacion en turbo pascal
Publicado por Alejandra (1 intervención) el 28/04/2013 04:34:07
Hola soy nueva en esta pagina y tambien programando en Pascal. Hay un ejercicio de un trabajo practico que dice así:
7. Se trata de escribir un programa que clasifique enteros leidos del teclado de acuerdo a los siguientes puntos: 1.Si es 30 o mayor, o negativo, visualizar un mensaje en ese sentido; en caso contrario. si es un nuevo primo. potencia de 2. o un numero compuesto, visualizar el mensaje correspondiente: si son cero o 1. visualizar 'cero' o 'unidad'.
Tengo más o menos una idea de lo que quiere, una sentencias de if/then/else anidados, pero lo que me complica es la parte de si es un numero primo y la potencia. Estoy buscando por este sitio, por otros link que encuentro por san google y lo unico que logro es confundirme mas. Solo tengo esto resuelto:
Uses Crt;
Var a:integer;
begin
writeln('no entiendo lo que quiere este programa pero saque sus conclusiones');
Writeln('Para ver los resultados debe introducir un numero: ');
Readln(a);
if (a>=30) then writeln('el numero que introdujo es: ', a)
else if (a<0) then writeln('el numero que introdujo es negativo: ', a);
Necesito saber si alguien tiene una sentencia sencilla de como sacar un numero primo y si la potencia es correcta de esta forma a**2 o Exp(n * Ln(x)). Por favor es una novata que les agradecera mucho.... espero que alguien pueda ayudarme.
Pd: esta el mismo ejercicio presentado el 29/09/2009 por otra persona pero no tuvo solución...espero que ahora tenga algun resultado.
Muchas gracias....
7. Se trata de escribir un programa que clasifique enteros leidos del teclado de acuerdo a los siguientes puntos: 1.Si es 30 o mayor, o negativo, visualizar un mensaje en ese sentido; en caso contrario. si es un nuevo primo. potencia de 2. o un numero compuesto, visualizar el mensaje correspondiente: si son cero o 1. visualizar 'cero' o 'unidad'.
Tengo más o menos una idea de lo que quiere, una sentencias de if/then/else anidados, pero lo que me complica es la parte de si es un numero primo y la potencia. Estoy buscando por este sitio, por otros link que encuentro por san google y lo unico que logro es confundirme mas. Solo tengo esto resuelto:
Uses Crt;
Var a:integer;
begin
writeln('no entiendo lo que quiere este programa pero saque sus conclusiones');
Writeln('Para ver los resultados debe introducir un numero: ');
Readln(a);
if (a>=30) then writeln('el numero que introdujo es: ', a)
else if (a<0) then writeln('el numero que introdujo es negativo: ', a);
Necesito saber si alguien tiene una sentencia sencilla de como sacar un numero primo y si la potencia es correcta de esta forma a**2 o Exp(n * Ln(x)). Por favor es una novata que les agradecera mucho.... espero que alguien pueda ayudarme.
Pd: esta el mismo ejercicio presentado el 29/09/2009 por otra persona pero no tuvo solución...espero que ahora tenga algun resultado.
Muchas gracias....
Valora esta pregunta
0