-
Lenguaje
Visual Basic .Net
-
Descripción
Dado N notas de un estudiante calcular:
A) Cuantas notas tiene reprobadas.
B) Cuantas notas aprobadas.
C) El promedio de notas.
D) El promedio de notas aprobadas y reprobadas.
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Module PromedioDeNotasAprobadasYReprobadas
Sub Main()
Dim i, n, notas_aprobadas, notas_reprobadas As Integer
Dim nota, promedio_de_notas, promedio_notas_aprobadas, promedio_notas_reprobadas As Double
notas_aprobadas = 0
notas_reprobadas = 0
promedio_notas_aprobadas = 0
promedio_notas_reprobadas = 0
Console.Write("Ingresa el valor de n: ")
n = Integer.Parse(Console.ReadLine())
For i = 1 To n
Console.WriteLine("PROCESO " & i)
Console.Write("Ingresa el valor de nota: ")
nota = Double.Parse(Console.ReadLine())
If nota<7 Then
notas_reprobadas=notas_reprobadas+1
promedio_notas_reprobadas=promedio_notas_reprobadas+nota
Else
notas_aprobadas=notas_aprobadas+1
promedio_notas_aprobadas=promedio_notas_aprobadas+nota
End If
promedio_de_notas=promedio_de_notas+nota
Console.WriteLine("Valor de promedio de notas: " & promedio_de_notas)
Console.WriteLine()
Next i
If n = 0 Then
promedio_de_notas = 0
Else
promedio_de_notas=promedio_de_notas/n
End IF
If notas_aprobadas = 0 Then
promedio_notas_aprobadas = 0
Else
promedio_notas_aprobadas=promedio_notas_aprobadas/notas_aprobadas
End IF
If notas_reprobadas = 0 Then
promedio_notas_reprobadas = 0
Else
promedio_notas_reprobadas=promedio_notas_reprobadas/notas_reprobadas
End IF
Console.WriteLine("Valor de notas aprobadas: " & notas_aprobadas)
Console.WriteLine("Valor de notas reprobadas: " & notas_reprobadas)
Console.WriteLine("Valor de promedio notas aprobadas: " & promedio_notas_aprobadas)
Console.WriteLine("Valor de promedio notas reprobadas: " & promedio_notas_reprobadas)
Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
End Sub
End Module
Sub Main()
Dim i, n, notas_aprobadas, notas_reprobadas As Integer
Dim nota, promedio_de_notas, promedio_notas_aprobadas, promedio_notas_reprobadas As Double
notas_aprobadas = 0
notas_reprobadas = 0
promedio_notas_aprobadas = 0
promedio_notas_reprobadas = 0
Console.Write("Ingresa el valor de n: ")
n = Integer.Parse(Console.ReadLine())
For i = 1 To n
Console.WriteLine("PROCESO " & i)
Console.Write("Ingresa el valor de nota: ")
nota = Double.Parse(Console.ReadLine())
If nota<7 Then
notas_reprobadas=notas_reprobadas+1
promedio_notas_reprobadas=promedio_notas_reprobadas+nota
Else
notas_aprobadas=notas_aprobadas+1
promedio_notas_aprobadas=promedio_notas_aprobadas+nota
End If
promedio_de_notas=promedio_de_notas+nota
Console.WriteLine("Valor de promedio de notas: " & promedio_de_notas)
Console.WriteLine()
Next i
If n = 0 Then
promedio_de_notas = 0
Else
promedio_de_notas=promedio_de_notas/n
End IF
If notas_aprobadas = 0 Then
promedio_notas_aprobadas = 0
Else
promedio_notas_aprobadas=promedio_notas_aprobadas/notas_aprobadas
End IF
If notas_reprobadas = 0 Then
promedio_notas_reprobadas = 0
Else
promedio_notas_reprobadas=promedio_notas_reprobadas/notas_reprobadas
End IF
Console.WriteLine("Valor de notas aprobadas: " & notas_aprobadas)
Console.WriteLine("Valor de notas reprobadas: " & notas_reprobadas)
Console.WriteLine("Valor de promedio notas aprobadas: " & promedio_notas_aprobadas)
Console.WriteLine("Valor de promedio notas reprobadas: " & promedio_notas_reprobadas)
Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
End Sub
End Module