• Lenguaje

    Visual Basic .Net

  • Descripción

    En una universidad con un número determinado de alumnos se desea obtener el promedio y el porcentaje de la población femenina, el promedio y porcentaje de la población masculina y el promedio general. Por cada alumno se ingresa MATRICULA, SEXO, SEMESTRE y PROMEDIO. Calcular e imprimir lo solicitado.

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
Module PromedioYPorcentajeDeUnaUniversidad

    Sub Main()
        Dim i, n, sexo As Integer
        Dim porcentaje_femeninas, porcentaje_masculinos, promedio, promedio_femeninas, promedio_general As Double
        Dim promedio_masculinos As Double
        Dim matricula, semestre As String
        porcentaje_femeninas = 0
        porcentaje_masculinos = 0
        promedio_femeninas = 0
        promedio_general = 0
        promedio_masculinos = 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 matricula: ")
            matricula = Console.ReadLine()
            Console.Write("Ingresa el semestre: ")
            semestre = Console.ReadLine()
            Console.Write("Ingresa el valor de promedio: ")
            promedio = Double.Parse(Console.ReadLine())
            Console.WriteLine("Selecciona el valor de sexo.")
            Console.WriteLine(vbTab & "1.- Femenino")
            Console.WriteLine(vbTab & "2.- Masculino")
            Console.Write(vbTab & ": ")
            Do
                sexo = Integer.Parse(Console.ReadLine())
                If sexo < 1 Or sexo > 2 Then
                    Console.Write("Valor incorrecto. Ingrésalo nuevamente.: ")
                End If
            Loop While sexo < 1 Or sexo > 2
            promedio_general=promedio_general+promedio
            If sexo = 1 Then
                promedio_femeninas=promedio_femeninas+promedio
                porcentaje_femeninas=porcentaje_femeninas+1
            Else
                promedio_masculinos=promedio_masculinos+promedio
                porcentaje_masculinos=porcentaje_masculinos+1
            End If
            Console.WriteLine("Matricula: " & matricula)
            Console.WriteLine("Semestre: " & semestre)
            Console.WriteLine()
        Next i
        If n = 0 Then
            porcentaje_femeninas = 0
        Else
            porcentaje_femeninas=100.0*porcentaje_femeninas/n
        End IF
        If n = 0 Then
            porcentaje_masculinos = 0
        Else
            porcentaje_masculinos=100.0*porcentaje_masculinos/n
        End IF
        If n = 0 Then
            promedio_femeninas = 0
        Else
            promedio_femeninas=promedio_femeninas/n
        End IF
        If n = 0 Then
            promedio_general = 0
        Else
            promedio_general=promedio_general/n
        End IF
        If n = 0 Then
            promedio_masculinos = 0
        Else
            promedio_masculinos=promedio_masculinos/n
        End IF
        Console.WriteLine("Valor de porcentaje femeninas: " & porcentaje_femeninas)
        Console.WriteLine("Valor de porcentaje masculinos: " & porcentaje_masculinos)
        Console.WriteLine("Valor de promedio femeninas: " & promedio_femeninas)
        Console.WriteLine("Valor de promedio general: " & promedio_general)
        Console.WriteLine("Valor de promedio masculinos: " & promedio_masculinos)
        Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
    End Sub

End Module