Imprimir todos los números perfectos comprendidos entre 1 y 10,000

[Dann1]

Que tal amigos,

Pues sí,

Lo del título es mi gran problema,

Soy estudiante de Ingeniería Industrial y estoy llevando una materia llamada Algoritmo Computacional,

Me están llevando a procesar los flujogramas a través de la programación en QB64,

Y quisiera ver si me pueden dar una mano por favor,

Tratando de comprender logré hacer una compilación que me imprime si es Perfecto o No, un número cualquiera, pero no logro entender como hacer para que se ejecute y me imprima los perfectos comprendidos entre 1 y 10,000,

Me pueden dar una manor por favor?

Aquí el detalle del que Yo hice, el cuál determina si un Número es perfecto o no, y lo imprime, lo que no comprendo es donde debo colocar el contador para que lleve la secuencia de acumulación de todos los perfectos comprendidos entre 1 y 10,000 y los Imprima,

Chékenlo:

Código:

CLS
Z = 1
H = 0
R = 0
INPUT "INGRESE UN VALOR:", N
DO
    IF N MOD Z = 0 THEN
        H = H + Z
    END IF
    Z = Z + 1
LOOP WHILE Z < N
IF N = H AND N = Z THEN
    PRINT "EL NUMERO ES PERFECTO:", N
ELSE
    PRINT "EL NUMERO NO ES PERFECTO"
END IF
END

Favor de darme una mano,

Gracias!


Saludos cordiales.

[AlanChavez]

justo debajo de donde dice

Código :

PRINT "EL NUMERO ES PERFECTO:", N
 

[Dann1]

Iniciado por AlanChavez

justo debajo de donde dice

Código :

PRINT "EL NUMERO ES PERFECTO:", N
 

Gracias amigo por contestar,

Pero como debo de colocar la sentencia para que se imprimiman todos los acumulados comprendidos entre el 1 y el 10,000??

Por ejem, sería:

PRINT "EL NUMERO ES PERFECTO:", N
N= N TO 4??

Digo lo del 4 porque leí que solo hay cuatro números perfectos entre el 1 y el 10,000

O como debo de ponerlo? Me puedes echar una mano por favor?

Gracias amigo,


Saludos cordiales.

[AlanChavez]

Iniciado por Dann1

Gracias amigo por contestar,

Pero como debo de colocar la sentencia para que se imprimiman todos los acumulados comprendidos entre el 1 y el 10,000??

Por ejem, sería:

PRINT "EL NUMERO ES PERFECTO:", N
N= N TO 4??

Digo lo del 4 porque leí que solo hay cuatro números perfectos entre el 1 y el 10,000

O como debo de ponerlo? Me puedes echar una mano por favor?

Gracias amigo,


Saludos cordiales.

Asi es, solamente existen 4 numeros perfectos entre el 1 y el 10,000.

Debes ponerlo de esta manera:

Código Codigo:

PRINT "EL NUMERO ES PERFECTO:", N
    C=C+1
 

Y arriba, declara una variable C, la llame C porque es un Contador o un Acumulador :P

el código final, quedaría algo asi:

Código Codigo:

CLS
Z = 1
H = 0
R = 0
C = 0
INPUT "INGRESE UN VALOR:", N
DO
    IF N MOD Z = 0 THEN
        H = H + Z
    END IF
    Z = Z + 1
LOOP WHILE Z < N
IF N = H AND N = Z THEN
    PRINT "EL NUMERO ES PERFECTO:", N
    C=C+1
ELSE
    PRINT "EL NUMERO NO ES PERFECTO"
END IF
 
PRINT "SE HAN ENCONTRADO ", C
PRINT " NUMEROS PERFECTOS"
END
 

No se si ese programa compile, desconozco completamente el lenguaje, pero supongo que eso debe funcionar, y los números perfectos ya los imprimiste, al estar imprimiendo N, si sabes declarar arreglos/arrays/vectores en ese lenguaje, entonces puedes almacenar los números perfectos en esos vectores y posteriormente imprimirlos.

En si, la lógica es que una vez que sabes si el número es perfecto, simplemente agregas uno a tu acumulador, de esta manera vas llevando cuentas de cuantos numeros perfectos has encontrado.

[Tikitios]

esto es un foro de c/c++ y eso no se que es, parece pascal. yo te puedo ayudar pero con un codigo en c++

[AlanChavez]

Iniciado por Tikitios

esto es un foro de c/c++ y eso no se que es, parece pascal. yo te puedo ayudar pero con un codigo en c++

Creo que preguntas como estas, realmente resulta indiferente si conoces o desconoces el lenguaje. El hace una pregunta de donde puede poner un contador de cuantos números perfectos ha encontrado su programa, asi que la lógica es la misma en JavaScript, Java, C, C++, Pascal, etc.