Ayudenme Por Favor!!!!!

JOSE R.
26 de Enero del 2006
necesito crear un algoritmo y/o Programa que pueda realizar la media aritmetica de 50 numeros, y pueda correr em visual basic.. por favor lo necesito para hoy me podrian ayudar.. gracias.

Rosa
26 de Enero del 2006
Te refieres a la suma de los números del 1 al 50 divididos entre 50? o los 50 números serían aleatorios?

Jose R.
26 de Enero del 2006
bueno rosa el programa es realizado con la formula de la media aritmetica, y es la suma de los numeros del 1 al 50 dividido entre 50. lo que se es que se realiza con la formula de la media aritmetica......

Rosa
26 de Enero del 2006
ok, entonces sólo es esto:

Private Sub Command1_Click()
Dim Contador As Integer \\\\'Variable para el bucle
Dim Suma As Integer \\\\'Acumulador
Dim Media As Double \\\\'Variable para la media que puede ser decimal por eso el tipo de dato double
Const CNMax As Integer = 50 \\\\'Se declara una constante con el número máximo

Suma = 0 \\\\'Se inicializa la variable que acumula la sumatoria
For Contador = 1 To CNMax
Suma = Suma + Contador \\\\'Suma de los CNMax números
Next
Media = Suma / CNMax \\\\'Calculo de la media

MsgBox Media

End Sub

Ahora sólo conviértelo a pseudocodigo.
Con el código que te pasé anteriormente pudiste haber desarrollado este ejercicio, al menos deberías intentarlo, no es difícil.

JOSE R.
26 de Enero del 2006
gracias rosa, pero tuve un problema que me borraron del computador la informacion que me pasaste anteriormente, me lo podrias enviar este programa en pseudocodigo. por favor...