Código promedio
Visual Basic
3.373 visualizaciones desde el 17 de Julio del 2018
Código para sacar promedio
Iniciar sesiónCrear cuenta
Crear cuentaCrear cuenta(1)Module Module1
Sub Main()
Dim uno, dos, tres, cuatro, cinco, seis, suma As Integer
Dim prom As Single
Console.WriteLine("Ingrese 1 Nota:")
uno = Console.ReadLine
Console.WriteLine("Ingrese 2 Nota:")
dos = Console.ReadLine
Console.WriteLine("Ingrese 3 Nota:")
tres = Console.ReadLine
Console.WriteLine("Ingrese 4 Nota:")
cuatro = Console.ReadLine
Console.WriteLine("Ingrese 5 Nota:")
cinco = Console.ReadLine
Console.WriteLine("Ingrese 6 Nota:")
seis = Console.ReadLine
prom = (uno + dos + tres + cuatro + cinco + seis) / 6
Console.WriteLine("El Promedio es: " & prom)
suma = uno + dos + tres + cuatro + cinco + seis
Console.WriteLine("La Suma de los 6 Numeros ingresado es:" & suma)
If uno > dos And uno > tres And uno > cuatro And uno > cinco And uno > seis Then
Console.WriteLine("La nota mas alta es:" & uno)
End If
If dos > uno And dos > tres And dos > cuatro And dos > cinco And dos > seis Then
Console.WriteLine("La nota mas alta es:" & dos)
End If
If tres > dos And tres > uno And tres > cuatro And tres > cinco And tres > seis Then
Console.WriteLine("La nota mas alta es:" & tres)
End If
If cuatro > dos And cuatro > tres And cuatro > uno And cuatro > cinco And cuatro > seis Then
Console.WriteLine("La nota mas alta es:" & cuatro)
End If
If cinco > dos And cinco > tres And cinco > cuatro And cinco > uno And cinco > seis Then
Console.WriteLine("La nota mas alta es:" & cinco)
End If
If seis > dos And seis > tres And seis > cuatro And seis > cinco And seis > uno Then
Console.WriteLine("La nota mas alta es:" & seis)
End If
If uno < dos And uno < tres And uno < cuatro And uno < cinco And uno < seis Then
Console.WriteLine("La nota mas baja es:" & uno)
End If
If dos < uno And dos < 3 And dos < 4 And dos < 5 And dos < 6 Then
Console.WriteLine("La nota mas baja es:" & dos)
End If
If tres < dos And tres < uno And tres < cuatro And tres < cinco And tres < seis Then
Console.WriteLine("La nota mas baja es:" & tres)
End If
If cuatro < dos And cuatro < tres And cuatro < uno And cuatro < cinco And cuatro < seis Then
Console.WriteLine("La nota mas baja es:" & cuatro)
End If
If cinco < dos And cinco < tres And cinco < cuatro And cinco < uno And cinco < seis Then
Console.WriteLine("La nota mas baja es:" & cinco)
End If
If seis < dos And seis < tres And seis < cuatro And seis < cinco And seis < uno Then
Console.WriteLine("La nota mas baja es:" & seis)
End If
Console.ReadKey()
Return
End Sub
End Module
