Pascal/Turbo Pascal - Ejercicio Pascal que resuelve la descomposición en factores primos de un número dado

   
Vista:

Ejercicio Pascal que resuelve la descomposición en factores primos de un número dado

Publicado por Daniel (5 intervenciones) el 03/09/2015 22:35:48
El ejercicio 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.
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

Ejercicio Pascal que resuelve la descomposición en factores primos de un número dado

Publicado por ramon (2072 intervenciones) el 04/09/2015 14:38:10
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
46
{Espero esto te ayude a seguir }
 
 program descomfactprimos;
  uses
     crt;
  var
    s, r, numero : integer;
    primos : array[0..99] of integer;
 
 
    procedure entradanumero(var n : integer);
    begin
       writeln;
       write('   Entre Numeri Entero : ');
       readln(n);
    end;
 
    procedure factoresprimos(nu : integer; var t : array of integer);
    var
       nn, di : integer;
    begin
      nn := nu;
      while ( nn > 1 ) do
      begin
         di := 2;
       while ( nn MOD di <> 0 ) do
       inc(di);
       t[r] := di;
       r := r + 1;
       nn := nn div di;
     end;
    end;
 
 
 
 
    begin
      clrscr;
      entradanumero(numero);
      factoresprimos(numero,primos);
      writeln('descomposicion en factores primos de un numero dado es');
      writeln;
      for s := 0 to r - 1 do
      write('  ',primos[s]);
      readkey;
    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

Ejercicio Pascal que resuelve la descomposición en factores primos de un número dado

Publicado por Daniel (5 intervenciones) el 04/09/2015 17:31:44
Muchas gracias, me sirve mas o menos para pensarlo, el tema es que no puedo usar cosas como procedure y el array pero gracias igual por la ayuda
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

Ejercicio Pascal que resuelve la descomposición en factores primos de un número dado

Publicado por ramon (2072 intervenciones) el 04/09/2015 18:32:19
Coloca todo como programa el array puedes convertirlo en variables suerte.
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

Ejercicio Pascal que resuelve la descomposición en factores primos de un número dado

Publicado por David (139 intervenciones) el 04/09/2015 18:58:29
Te propongo la siguiente solución:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
{programa que descompone un n£mero en sus factores primos}
Uses CRT;
 
Var
  resto, n,d : Longint;
 
begin
  writeln('Introduzca n: ');
  readln(n);
  d:=2;
  while n>1 do
    begin
  resto:=n mod d;
  if resto=0 then
    begin
    writeln(d);
    n:=n div d
    end
  else
   d:=d+1;
  end;
 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

Ejercicio Pascal que resuelve la descomposición en factores primos de un número dado

Publicado por Daniel (5 intervenciones) el 04/09/2015 19:09:36
Una pregunta me explicas que tipo de variable es longint, nunca trabaje con ella
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

Ejercicio Pascal que resuelve la descomposición en factores primos de un número dado

Publicado por ramon (2072 intervenciones) el 04/09/2015 22:08:35
Corresponde a uno de los tipos que ofrece pascal como integer o word pero mayor.

Longint -2147483648..2147483647 Con signo, 32 bits
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

Ejercicio Pascal que resuelve la descomposición en factores primos de un número dado

Publicado por ramon (2072 intervenciones) el 09/09/2015 11:23:38
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
{Mira si esto te ayuda mas }
 
program descomfactprimos;
  uses
     crt;
  var
    n, nn, di, s, r, numero : integer;
 
  begin
       clrscr;
       writeln;
       write('   Entre Numeri Entero : ');
       readln(n);
       nn := n;
      while ( nn > 1 ) do
      begin
         di := 2;
       while ( nn MOD di <> 0 ) do
       inc(di);
       write('  ',di);
       r := r + 1;
       nn := nn div di;
     end;
     writeln;
     writeln('   Pulse Una Tecla');
     readkey;
  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

Ejercicio Pascal que resuelve la descomposición en factores primos de un número dado

Publicado por Daniel (5 intervenciones) el 09/09/2015 17:44:41
Hola no sabes como le podria agregar un contador para que me cuente las veces que se usa cada factor o divisor, para asi me exprese en el caso de usar tres veces el 2, se muestre en pantalla 2^3.
como dice en el ejemplo que puse, en el caso de el 360 que en pantalla se muestre 2^3
3^2
5
y ahi se termine el programa
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

Ejercicio Pascal que resuelve la descomposición en factores primos de un número dado

Publicado por ramon (2072 intervenciones) el 10/09/2015 19:26:03
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
46
47
48
{Mira esto}
 
 program descomfactprimos;
  uses
     crt;
  var
    n, nn, di, s, r, numero : integer;
    cadena : string;
 
  begin
       clrscr;
       writeln;
       s := 1;
       write('   Entre Numeri Entero : ');
       readln(n);
       nn := n;
      while ( nn > 1 ) do
      begin
         di := 2;
       while ( nn MOD di <> 0 ) do
       inc(di);
       cadena[s] := chr(di + 48);
       cadena[0] := chr(s);
       s := s + 1;
       nn := nn div di;
     end;
     nn := 0;
     n := 1;
     numero := ord(cadena[1]) - 48;
     for r := 2 to s  do
     begin
     nn := ord(cadena[r]) - 48;
     if numero <> nn then
     begin
        write('     ',numero,'^',n);
        n := 1;
        numero := nn;
     end
  else
     begin
     n := n + 1;
     numero := nn;
     end;
    end;
     writeln;
     writeln('   Pulse Una Tecla');
     readkey;
  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

Ejercicio Pascal que resuelve la descomposición en factores primos de un número dado

Publicado por Ivannova Gómez (1 intervención) el 19/09/2015 04:04:35
No sabia como hacerlo y con este código me compilo como quería, sólo le hice unos arreglos. ¡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

Ejercicio Pascal que resuelve la descomposición en factores primos de un número dado

Publicado por fmq203 (1 intervención) el 09/09/2015 07:15:52
buscando la solucion rapida a la tarea de P1 eh? jajaja
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

Ejercicio Pascal que resuelve la descomposición en factores primos de un número dado

Publicado por Daniel (5 intervenciones) el 09/09/2015 18:11:25
no soy el unico eh jaja
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

Ejercicio Pascal que resuelve la descomposición en factores primos de un número dado

Publicado por Carlos (1 intervención) el 16/09/2015 16:27:07
Hola. No logro hacer que la salida sea por ejemplo:
360= 2^3
3^2
5 .
La escribe como 2
2
2
3
3
5.
Alguna idea ??? Se que van dos while pero no se como ordenar todo.
Y no puedo usar arreglos , crt y esas cosas
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

Ejercicio Pascal que resuelve la descomposición en factores primos de un número dado

Publicado por dayana (1 intervención) el 16/09/2015 20:44:11
agradeceria, si alguien tiene idea como resolver lo que pusiste porque me pasa lo mismoo!! asi que si tenes la solucion te re agradezco q la pasesss! 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