-
Lenguaje
Visual Basic .Net
-
Descripción
Se requiere saber cuánto deberá pagar un alumno por su matrícula en la Universidad, a partir de un valor X positivo ingresado y según el promedio de las 3 notas (entre 1 y 10) obtenidas en el colegio. Si el promedio es mayor o igual a 9.0, se aplica un descuento del 15% en su matrícula, si es mayor a 7.0 pero menor a 9.0, el descuento es del 8%; de lo contrario, sólo se le aplica 6%.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Module DescuentoPorMatricula
Sub Main()
Dim descuento, matricula, nota_1, nota_2, nota_3 As Double
Dim pago, promedio As Double
Console.Write("Ingresa el valor de matricula: ")
matricula = Double.Parse(Console.ReadLine())
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
descuento=0
If promedio>=9.0 Then
descuento=matricula*0.15
End If
If promedio>7.0 And promedio<9.0 Then
descuento=matricula*0.08
End If
If promedio<=7.0 Then
descuento=matricula*0.06
End If
pago=matricula-descuento
Console.WriteLine("Valor de descuento: " & descuento)
Console.WriteLine("Valor de pago: " & pago)
Console.WriteLine("Valor de promedio: " & promedio)
Console.WriteLine()
Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
End Sub
End Module
Sub Main()
Dim descuento, matricula, nota_1, nota_2, nota_3 As Double
Dim pago, promedio As Double
Console.Write("Ingresa el valor de matricula: ")
matricula = Double.Parse(Console.ReadLine())
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
descuento=0
If promedio>=9.0 Then
descuento=matricula*0.15
End If
If promedio>7.0 And promedio<9.0 Then
descuento=matricula*0.08
End If
If promedio<=7.0 Then
descuento=matricula*0.06
End If
pago=matricula-descuento
Console.WriteLine("Valor de descuento: " & descuento)
Console.WriteLine("Valor de pago: " & pago)
Console.WriteLine("Valor de promedio: " & promedio)
Console.WriteLine()
Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
End Sub
End Module