Foro de elhacker.net

Programación => Ejercicios => Mensaje iniciado por: DiegoCorrea en 4 Septiembre 2015, 18:40 pm



Título: Ayuda con ejercicio! Free Pascal
Publicado por: DiegoCorrea en 4 Septiembre 2015, 18:40 pm
Buenas, queria una ayuda con este ejercicio, acontinuacion les pongo las pautas y la letra.
Descomposición en factores primos
Esta tarea consiste en escribir un programa Pascal que resuelve la descomposición en factores primos de un número dado.


El programa solicitado debe leer un entero de la entrada. Si el entero es mayor que 1 el programa va a desplegar sus factores primos con su respectiva multiplicidad.

Así, por ejemplo, si se ingresa el número 360, el programa desplegará:

 
    2^3
    3^2
    5
Notar que:

cuando la multiplicidad es igual a 1 no se despliega,
se despliega un factor primo por línea,
los factores primos se despliegan en orden creciente,
luego de desplegar el último factor el programa termina.
En caso que el número ingresado no sea mayor que 1 el programa termina sin hacer nada.


Se pide
Realizar un programa en Pascal que implemente lo que se describe en las secciones anteriores. El programa debe leer el número a descomponer de la entrada sin emitir ningún mensaje adicional. Para uniformizar la corrección, pedimos que la lectura de este número se realice con una instrucción:

readln(numero)
La salida de cada factor primo con su multiplicidad se debe desplegar sin espacios de la forma que se indicó más arriba:

factor^multiplicidad
Se puede utilizar todo lo visto y solamente lo visto hasta la semana del 31/08 inclusive Esto incluye los siguientes conceptos:

Tipos de datos: Integer, Real, Boolean, Char
Instrucciones:
Asignación
Entrada y Salida(read, write, WriteLn, ReadLn)
Secuencia
Selección (if, case)
Repetición (for, while, repeat)
No está permitido utilizar facilidades de Free Pascal que no forman parte del estándar y no se dan en el curso. Así por ejemplo, no se pueden utilizar ninguna de las palabras siguientes: uses, crlscr, gotoxy, crt, readkey, shortint, longint, string, etcétera.