Pascal programa que descompone en factores primos
Publicado por Fab2015 (1 intervención) el 09/09/2018 23:35:52
Buenas, debo realizar un programa en Pascal que realice la descomposicion factorial de un numero entero SIN USAR NINGUNA DE LAS PALABRAS SIGUIENTES: uses, crlscr, gotoxy, crt, readkey, string, break
Tengo este codigo con un problema en el while que, en el caso de repetirse la variable divisor, me muestra dos veces el contenido de la variable y no se como hacer para que se muestre solo una vez con su respectivo exponente (en el caso que se repita el mismo numero). Agradezco ayuda....Gracias!
Tengo este codigo con un problema en el while que, en el caso de repetirse la variable divisor, me muestra dos veces el contenido de la variable y no se como hacer para que se muestre solo una vez con su respectivo exponente (en el caso que se repita el mismo numero). Agradezco ayuda....Gracias!
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
PROGRAM Tarea1 (input, output);
VAR numero, divisor, contar_factor: Integer;
BEGIN
WRITE ('Ingrese numero... ');
readln(numero);
divisor := 2;
contar_factor := 0;
WHILE (divisor <= numero) DO
IF (numero MOD divisor = 0) THEN // si el resto de dividir al num ingresado entre divisor es cero
BEGIN
numero := numero DIV divisor;
contar_factor := succ(contar_factor);
IF (contar_factor > 1) THEN
BEGIN
writeln(divisor, '^', contar_factor);
END
ELSE
writeln(divisor);
END
ELSE
BEGIN
divisor := succ(divisor); //si el resto no es cero, pruebo con el siguiente factor
contar_factor := 0;
END;
END.Valora esta pregunta
0
