Pascal/Turbo Pascal - ejercicio con procedure y descomposicion en factor

   
Vista:

ejercicio con procedure y descomposicion en factor

Publicado por maca (15 intervenciones) el 01/12/2009 21:02:46
Hola!!

Estoy haciendo un ejercicio en el que me piden que mediante un procedimiento, al introducir un numero me muestre en pantalla su descomposicion en factores primos.

Si alguien me echa un cables estaria muy agradecida, ya que voy un poco perdida y no se ni como plantearlo, gracias!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ejercicio con procedure y descomposicion en fac

Publicado por Diego Romero (997 intervenciones) el 02/12/2009 15:50:00
¿Qué llevas hecho?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ejercicio con procedure y descomposicion en fac

Publicado por maca (15 intervenciones) el 02/12/2009 16:39:53
hola, pues mira resulta que es que no se por donde coger el ejercicio, por que ese apartado esta dento de una opcion de un menu, y eso si lo he hecho, pero en la descomposicion si ando un poco perdida, asi qe si me pudieseis dar una pista estaria agradecida,gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ejercicio con procedure y descomposicion en fac

Publicado por Diego Romero (997 intervenciones) el 02/12/2009 18:57:22
Creo que lo tengo, a ver:

procedure FactoresPrimos(N: integer);
var
Cociente, divisor, resto: integer;
begin
Cociente:=N;
Write('Cociente: ',Cociente);
while Cociente > 1 do
begin
divisor:=2;
resto:=1;
while resto > 0 do
begin
resto:=Cociente mod divisor;
if Resto = 0 then
begin
Cociente := Cociente div divisor;
WriteLn(' Divisor: ',divisor);
Write('Cociente: ',Cociente);
end; { if }
inc(divisor);
end; { while }
end; { while }
end;

Es iterativo aunque lo ideal sería hacerlo recursivo (aunque también dudo que sepas la diferencia y aunque la supieras tampoco importa :P).
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar