-
Lenguaje
Visual Basic .Net
-
Descripción
Un alumno desea saber cuál será su calificación final en la materia de algoritmos. Dicha calificación se compone de los siguientes porcentajes:
- 55% del promedio de sus tres calificaciones parciales.
- 30% de la calificación del examen final.
- 15% de la calificación de un trabajo final.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Module CalificacionFinalEnAlgoritmos
Sub Main()
Dim calificacion_final, examen_final, parcial_1, parcial_2, parcial_3 As Double
Dim promedio_parciales, trabajo_final As Double
Console.Write("Ingresa el valor de examen final: ")
examen_final = Double.Parse(Console.ReadLine())
Console.Write("Ingresa el valor de parcial 1: ")
parcial_1 = Double.Parse(Console.ReadLine())
Console.Write("Ingresa el valor de parcial 2: ")
parcial_2 = Double.Parse(Console.ReadLine())
Console.Write("Ingresa el valor de parcial 3: ")
parcial_3 = Double.Parse(Console.ReadLine())
Console.Write("Ingresa el valor de trabajo final: ")
trabajo_final = Double.Parse(Console.ReadLine())
promedio_parciales=(parcial_1+parcial_2+parcial_3)/3
calificacion_final=promedio_parciales*0.55+examen_final*0.3+trabajo_final*0.15
Console.WriteLine("Valor de calificacion final: " & calificacion_final)
Console.WriteLine("Valor de promedio parciales: " & promedio_parciales)
Console.WriteLine()
Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
End Sub
End Module
Sub Main()
Dim calificacion_final, examen_final, parcial_1, parcial_2, parcial_3 As Double
Dim promedio_parciales, trabajo_final As Double
Console.Write("Ingresa el valor de examen final: ")
examen_final = Double.Parse(Console.ReadLine())
Console.Write("Ingresa el valor de parcial 1: ")
parcial_1 = Double.Parse(Console.ReadLine())
Console.Write("Ingresa el valor de parcial 2: ")
parcial_2 = Double.Parse(Console.ReadLine())
Console.Write("Ingresa el valor de parcial 3: ")
parcial_3 = Double.Parse(Console.ReadLine())
Console.Write("Ingresa el valor de trabajo final: ")
trabajo_final = Double.Parse(Console.ReadLine())
promedio_parciales=(parcial_1+parcial_2+parcial_3)/3
calificacion_final=promedio_parciales*0.55+examen_final*0.3+trabajo_final*0.15
Console.WriteLine("Valor de calificacion final: " & calificacion_final)
Console.WriteLine("Valor de promedio parciales: " & promedio_parciales)
Console.WriteLine()
Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
End Sub
End Module