xPasos - TODO POR PASOS

Objetivo:

Aprender el uso de Arreglos (Arrays en ingles).

Problema:

Leer 5 valores numéricos, almacenarlos en un Arreglo e imprimirlos en pantalla.

Solución:

---

Análisis

Para almacenar los valores leidos hay que usar un Array de tipo entero. El indice del Arreglo debe iniciar en cero e ir hasta 4, o tambien se puede iniciar en 1 y finalizar en 5.

Se debe usar un ciclo para leer los valores y almacenarlos en el Arreglo, y un ciclo para imprimirlos en pantalla.

Para trabajar con Arreglos hay que declararlos antes de usarlos. Para declarar un
Arreglo se usa la instrucción Dim, así:

Dim NombreArray.Tipo(TAMAÑO)

---

Variables

i_numero = Contador. Permite llevar el indice del Array.
a_suma = Array de números leidos.

---

Programa

;EJEMPLO NUMERO 009

EnableExplicit

OpenConsole()

#MAXIMO = 5 ;DEFINE CONSTANTE

Define.i i_indice
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   

PrintN("")

PrintN("Numeros: ")

PrintN("")

For i_indice = 1 To #MAXIMO
  Print(Str(ai_numeros(i_indice))+"  ")
Next   

Input()
CloseConsole()
End

---