none
Encontrar número mayor y menor de una lista de 24 con ciclo For RRS feed

  • Pregunta

  • Un código con 24 números reales, encontrar promedio, número mayor y menor

    Así es como llevo el programa hasta ahora, falta el mayor y el menor

     Dim TEMP, PROM, I, SUMA, MAYOR, MENOR As Single
            SUMA = 0
            MAYOR = 0
            MENOR = 0
            For I = 1 To 24
                TEMP = Val(InputBox("TEMPERATURA" & Str(I)))
                SUMA = SUMA + TEMP
        
            Next
            PROM = SUMA / 24
            MsgBox("LA TEMPERATURA PROMEDIO ES " & Str(PROM))
         

    lunes, 23 de marzo de 2020 4:15

Respuestas

  • Para encontrar el mayor, dentro del bucle se mete un "if" que diga "si el valor que estamos procesando es mayor que la variable MAYOR, entonces mete ese valor en la variable MAYOR".

    Para encontrar el menor, en lugar de poner MENOR=0 tienes que poner MENOR=un número muy grande, y luego dentro del bucle se pone un "if" que diga "si el valor que estamos procesando es menor que la variable MENOR, entonces mete ese valor en la variable MENOR".

    Perdona que te lo diga así con letras y que no te escriba el código, pero evidentemente se trata de un ejercicio académico por lo que no podemos darte nada más que unas ideas genéricas, pero no escribirte el código terminado para que solo tengas que copiarlo.

    • Propuesto como respuesta Sergio Parra lunes, 23 de marzo de 2020 10:33
    • Marcado como respuesta EricRRModerator lunes, 23 de marzo de 2020 15:44
    lunes, 23 de marzo de 2020 6:57