-
Lenguaje
Visual Basic .Net
-
Descripción
Leer 3 notas y calcular el promedio, además enviar mensaje si aprobó o no. La nota de aprobación es 7.0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Module PromedioDe3Notas
Sub Main()
Dim nota_1, nota_2, nota_3, promedio As Double
Console.Write("Ingresa el valor de nota 1: ")
nota_1 = Double.Parse(Console.ReadLine())
Console.Write("Ingresa el valor de nota 2: ")
nota_2 = Double.Parse(Console.ReadLine())
Console.Write("Ingresa el valor de nota 3: ")
nota_3 = Double.Parse(Console.ReadLine())
promedio=(nota_1+nota_2+nota_3)/3
If promedio<7 Then
Console.WriteLine("Reporbado")
Else
Console.WriteLine("Aprobado")
End If
Console.WriteLine("Valor de promedio: " & promedio)
Console.WriteLine()
Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
End Sub
End Module
Sub Main()
Dim nota_1, nota_2, nota_3, promedio As Double
Console.Write("Ingresa el valor de nota 1: ")
nota_1 = Double.Parse(Console.ReadLine())
Console.Write("Ingresa el valor de nota 2: ")
nota_2 = Double.Parse(Console.ReadLine())
Console.Write("Ingresa el valor de nota 3: ")
nota_3 = Double.Parse(Console.ReadLine())
promedio=(nota_1+nota_2+nota_3)/3
If promedio<7 Then
Console.WriteLine("Reporbado")
Else
Console.WriteLine("Aprobado")
End If
Console.WriteLine("Valor de promedio: " & promedio)
Console.WriteLine()
Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
End Sub
End Module