Module Module1 Sub Main
Enviado por Nazareth Navarrete • 30 de Mayo de 2019 • Apuntes • 1.404 Palabras (6 Páginas) • 84 Visitas
Module Module1
Sub Main()
'informacion de los integrantes'
'nombre del curso: Herramienta de programacion III'
'grupo 1L131 / fecha:10-04-19'
'Nazareth Navarrete 8-879-2126'
'Mark Tack 8-946-483'
'Vs 2013'
'Taller #1 /descripcion del problema captura y ejecucion del programa'
'declaracion de variables
Dim numeros(100), i, frecuencia(10), sumaFrecuencia, sumaValores, Promedio As Integer
Dim VMayorP, VMenorP As Integer
'valor,posicion y frecuencia
Dim datos() As Integer = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
'captura de los datos de entrada
Console.WriteLine("Introduzca numeros entre el 1 y el 10")
Do
i = i + 1
numeros(i) = Console.ReadLine()
Loop While ((numeros(i) > 0 And numeros(i) <= 10)
'Finalizacion del programa si ingresa un numero no valido
If (numeros(i) < 0 Or numeros(i) > 10) Then
Console.Clear()
Console.WriteLine("El numero ingresado es incorrecto")
Console.ReadLine()
Exit Sub
End If
Console.Clear()
'mensajes de salida en consola'
Console.WriteLine("Herramienta de programacion III")
Console.WriteLine("Nazareth Navarrete 8-879-2126")
Console.WriteLine("Mark Tack 8-946-483")
Console.WriteLine("")
'impresion de los elementos ingresados
Console.WriteLine()
Console.WriteLine(" LOS VALORES ALMACENADOS FUERON ")
For x As Integer = 1 To i Step 1
Console.WriteLine(numeros(x))
sumaValores = sumaValores + numeros(x)
Next
'calculo de promedio de todos los elementos
Promedio = sumaValores / i
For x As Integer = 1 To i Step 1
If (numeros(x) > Promedio) Then
VMayorP = VMayorP + 1
ElseIf (numeros(x) < Promedio) Then
VMenorP = VMenorP + 1
End If
Next
'calculo de frecuencias de cada elemento del arreglo
Console.WriteLine()
For x As Integer = 0 To 9 Step 1
For y As Integer = 0 To 99 Step 1
If (datos(x) = numeros(y)) Then
frecuencia(x) = frecuencia(x) + 1
End If
Next
Next
'impresion de las frecuencias de cada elemento
For x As Integer = 0 To 9 Step 1
Console.WriteLine("El numero " & datos(x) & " y su frecuencia es " & frecuencia(x))
sumaFrecuencia = sumaFrecuencia + frecuencia(x)
Next
Console.WriteLine()
Console.WriteLine("La suma de frecuencias es " & sumaFrecuencia & " La suma de todos los valores es " & sumaValores)
...