xPasos - TODO POR PASOS

Objetivo:

Aprender el uso de Arreglos (Arrays en ingles).

Problema:

Leer 5 números, almacenarlos en un Arreglo y luego buscar y mostrar el número mayor.

Solución:

---

Análisis

Para almacenar los valores leidos hay que usar un Arreglo de tipo entero. Vamos a definir el Arreglo con máximo 5 elementos.

Vamos a usar dos ciclos, en el primero leemos los números desde el usuario. En el segundo lo usamos para encontrar el mayor número. Por último mostraremos en pantalla el número mayor.

---

Variables

i_indice = Contador. Permite llevar el indice del Arreglo.
i_maximo = Almacena el número maximo.
ai_elementos = Array de números leidos.

---

Programa

;EJEMPLO NUMERO 011

EnableExplicit

OpenConsole()

#MAXIMO = 5 ;DEFINE CONSTANTE (5 ELEMENTOS: DE 1 A 5)

Define.i i_indice
Define.i i_maximo
Dim ai_numeros.i(#MAXIMO) ;DEFINE UN ARREGLO O ARRAY


For i_indice = 1 To #MAXIMO
  Print("Numero "+Str(i_indice)+": ")
  ai_numeros(i_indice) = Val(Input())
Next   

i_maximo = ai_numeros(1) ;ASUME QUE EL PRIMER NUMERO ES EL MAXIMO, 
                         ;CUANDO ENCUENTRE OTRO MAYOR LO REMPLAZA

For i_indice = 2 To #MAXIMO
  If ai_numeros(i_indice) > i_maximo
    i_maximo = ai_numeros(i_indice) 
  EndIf
Next

PrintN("")

Print("Máximo: "+Str(i_maximo))  

Input()
CloseConsole()
End

---