Pascal/Turbo Pascal - Trabajo Descomposicion de Factores primos

 
Vista:
sin imagen de perfil

Trabajo Descomposicion de Factores primos

Publicado por Rodolfo (1 intervención) el 15/09/2015 20:54:28
Hola, necesitaba ayuda para resolver esto, necesito que la salida me quede asi como en la imagen, muchas gracias si me pueden ayudar.



1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
PROGRAM DescompFactoresPrimos;
 
 
 
    var
	Factor, Multiplicidad, nn, Numero : integer;
 
    BEGIN
 
 
	 WriteLn;
 
	 Write( ' Escriba el numero entero: ');
 
	 ReadLn(Numero);
 
	 nn := Numero;
 
         While ( nn > 1 ) do
 
	 begin
 
	   Factor := 2;
 
	   Multiplicidad := 1;
 
           While(nn MOD Factor <> 0) do
 
	   Factor := Factor + 1;
 
	   nn := nn div Factor;
 
	   If(Multiplicidad<2)
	    Then(writeln('  ',Factor))
	    Else(writeln('  ',Factor,'^',Multiplicidad));
 
 
	  end;
 
	 WriteLn;
 
	 WriteLn('  Gracias');
 
 
    end.
snapshot2
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

Trabajo Descomposicion de Factores primos

Publicado por ramon (2158 intervenciones) el 16/09/2015 08:16:27
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
{Mira esto}
 
program descomfactprimos;
var
n, nn, di, s, r, numero : integer;
fin : boolean;
begin
writeln;
s := 0;
write(' Entre Numeri Entero : ');
readln(n);
nn := n;
r := 0;
writeln(' ',n);
while ( nn > 1 ) do
begin
di := 2;
fin := true;
while ( nn MOD di <> 0 ) do
inc(di);
if (r <> di) and (r > 0) then
begin
write(' ',r,'^',s);
s := 0;
r := di;
fin := false;
end
else
r := di;
s := s + 1;
nn := nn div di;
end;
if fin = false then
write(' ',r,'^',s);
writeln;
writeln;
writeln(' Pulse Enter');
readln;
end.
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