TOP

Visual Basic Consola - Condicionales 01





01.  Hacer un programa que calcule el promedio de 3 nota, si el promedio es mayor que 10.5 mostrar aprobado de lo contrario mostrar desaprobado.


Imports System.Console
Module Module1
    Dim PROM, N1, N2, N3 As Decimal
    Sub Main()
        Write("Ingrese Nota 1: ")
        N1 = ReadLine()
        Write("Ingrese Nota 2: ")
        N2 = ReadLine()
        Write("Ingrese Nota 3: ")
        N3 = ReadLine()
        PROM = (N1 + N2 + N3) / 3
        WriteLine()
        If PROM > 10.5 Then
            ForegroundColor = ConsoleColor.Blue
            WriteLine("APROBADO : " & PROM)
        Else
            ForegroundColor = ConsoleColor.Red
            WriteLine("DESAPROBADO : " & PROM)
        End If
        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.