TOP

Visual Basic Consola - Repetitiva MIENTRAS 02




02.  Dado nnotas, calcular el promedio de las notas aprobadas y el promedio de las notas desaprobadas.


Imports System.Console
Module Module2
    Dim cont, num, a, d
    Dim nota, aprob, desap As Decimal
    Sub Main()
        Write("Ingrese un número entero : ")
        num = ReadLine()
        cont = 1
        WriteLine()
        While (cont <= num)
            Write("Ingrese Nota Nro " & cont & " : ")
            nota = ReadLine()
            If (nota >= 10.5) Then
                a = a + 1
                aprob = aprob + nota
            Else
                d = d + 1
                desap = desap + nota
            End If
            cont = cont + 1
        End While
        WriteLine()
        WriteLine("Promedio de aprobados    : " & aprob / a)
        WriteLine("Promedio de desaprobados : " & desap / d)
        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.