Ejemplo de Acumuladores

Antes de programar es importante tener en mente que es lo que van a hacer. No pueden sentarse a escribir código sin saber cual va a ser el resultado. Lo mas recomendable es hacer diagramas de flujo Muchas veces por la carrera de empezar ya a programar no lo hacemos si no hasta que vemos que nuestra lógica no resulto.

Ejemplo de Acumuladores
Hacer un programa que nos permita acumular en una variable la captura de 5 numeros.


Module Module1
Sub Main ()
Dim captura As Integer
Dim Acumulador
Dim x As Integer

For x=1 To 5
caputura = Console.ReadLine ()
Acumulador = Acumulador + captura
Next

Console.WriteLne ("La suma de los datos caputurados es:{0}", Acumulador)
Console.ReadLine ()
End Sub
End Module

En este programa la variable "Acumulador" guarda el valor anterior y le suma el valor de la captura.

Ejemplo 2:
Si quisieramos sacar el promedio de los datos capturados, ¿Que es lo que nos haria falta? Un contador no? (eso si no supieramos cuantos valores tuvieramos que capturar)

Do While opcion = "y"
Console.WriteLine ("Dame un numero: ")
numero = Console.ReadLine ()
Acumulador = Acumulador + numero
x++
Console.WriteLine ("Tienes mas numeros que escribir s/n?")
opcion = Console.ReadLine ()
Loop

Console.WriteLine ("El contenido de Acumulador: {0} Se hicieron {1} capturas",Acumulador, x)
Console.WriteLine ("El promedio fue: {0}, Acumulador/x)

En esta ocacion "x" funciona como contador. Acumulador sigue haciendo su trabajo.

Nota: Les recomiendo que todos los programas los escriban ustedes mismos, y no le den el famoso Copy&Paste.