TOP

Visual Basic Consola - Repetitiva PARA 05




05.  Hacer un programa que permita almacenar los nombres y promedios de 15 alumnos del curso de programación. Las notas deben estar entre 0 y 20. Mostrar el alumno con la mayor nota.


Imports System.Console
Module Module5
    Dim nombre, xnom
    Dim promedio, xprom_may
    Sub Main()
        xprom_may = 0
        For cont = 1 To 5
            Write("Ingrese Nombre " & cont & " : ")
            nombre = ReadLine()
            Write("Ingrese Promedio " & cont & " : ")
            promedio = ReadLine()
            If promedio >= 0 And promedio <= 20 Then
                If xprom_may < promedio Then
                    xprom_may = promedio
                    xnom = nombre
                End If
                Clear()
            Else
                cont = cont - 1
            End If
        Next
        WriteLine("Alumno con mayor promedio : " & xnom & " , " & xprom_may)
        ReadLine()
    End Sub
End Module

share_facebook

DAME UN ME GUSTA - SI VALORAS ESTE CÓDIGO



0 comentarios:

Publicar un comentario

Danos tu opinión o déjanos tu ejercicio! - Algoritmos, pseudocódigo y lo pasamos a Visual Basic consola.