xPasos - TODO POR PASOS

Objetivo:

Aprender el uso de Arreglos o Vectores (Arrays en ingles).

Problema:

Leer un conjunto de números enteros y calcular su promedio.

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 10 elementos. Para almacenar el promedio usaremos una variable de tipo decimal.

Aunque hay varias formas de realizar este ejercicio nosotros vamos a usar 2 ciclos. El primer ciclo se usará para leer los valores y el segundo para calcular el promedio. Por último mostraremos en pantalla el promedio calculado.

La formula para cálcular el promedio es:

promedio = suma_de_números / cantidad_de_números

---

Variables

i_indice = Contador. Permite llevar el indice del Arreglo.
i_cantidad = Cantidad de números a promediar.
i_suma = Suma de los números leidos.
f_promedio = Promedio de los números leidos.
ai_elementos = Array de números leidos.

---

Programa

;EJEMPLO NUMERO 010

EnableExplicit

OpenConsole()

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

Define.i i_indice
Define.i i_cantidad
Define.i i_suma
Define.f f_promedio
Dim ai_numeros.i(#MAXIMO) ;DEFINE UN ARREGLO, VECTOR O ARRAY


Print("Cantidad de números: ")
i_cantidad = Val(Input())

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

For i_indice = 1 To i_cantidad
  i_suma = i_suma + ai_numeros(i_indice)
Next   

f_promedio = i_suma / i_cantidad

PrintN("")

Print("Promedio: "+StrF(f_promedio, 2))  

Input()
CloseConsole()
End

---