Algoritmo

Solo disponible en BuenasTareas
  • Páginas : 2 (419 palabras )
  • Descarga(s) : 0
  • Publicado : 7 de octubre de 2010
Leer documento completo
Vista previa del texto
Llene una matriz de n x m y según el caso imprima lo que se pide:

En caso de que sea “1” sume los datos e imprima el resultado.
En caso de que sea “2” diga cuál es el promedio de los datos.
Encaso de que sea “3” diga cuál es el dato mayor.
En caso de que sea “4” contar cuantos números pares se encuentran en la matriz.
Para salir del programa digite “5”

ALGORITMO EN VISUAL

PublicClass Form1
Public suma, n, m, i, j, prom, may, contp, op, mat(50, 50) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Loadn = InputBox("Digite el tamaño de las columnas")
m = InputBox("Digite el tamaño de las filas")
If (n <= 50 And m <= 50) Then
For i = 1 To n
Forj = 1 To m
mat(i, j) = InputBox("Digite el numero de la posición " & i & "," & j)
Next j
Next i
ElseMsgBox("Tamaños no válidos")
End
End If
MsgBox("En caso de que sea 1 sume los datos e imprima el resultado.")
MsgBox("En caso de que sea 2 diga cuál es el promedio de losdatos.")
MsgBox("En caso de que sea 3 diga cuál es el dato mayor.")
MsgBox("En caso de que sea 4 contar cuantos números pares se encuentran en la matriz.")
MsgBox("Digite 5 paraterminar el programa")
op = 0
Do While (op <> 5)
op = InputBox("Digite el caso deseado")
Select Case op
Case 1For i = 1 To n
For j = 1 To m
suma = suma + mat(i, j)
Next j
Next i
MsgBox("Lasuma de todos los datos es: " & suma)
Case 2
For i = 1 To n
For j = 1 To m
suma = suma + mat(i, j)...
tracking img