Problema "Rango de Calificaciones" ~ Mouse .Net

5 abr 2011

Problema "Rango de Calificaciones"

Mouse

Se tiene las calificaciones de un grupo de alumnos que presentaron un examen de computación. Haga un diagrama de flujo y su respectivo programa que calcule e imprima cuantas calificaciones hay en cada uno de los rangos:

de 0 a 3.99
de 4 a 5.99
de 6 a 7.99
de 8 a 10

Datos: CAL1, CAL2, CAL3..... -1
donde CAL es una variable de tipo real, que representa la calificación del alumno, el fin de la introduccion de los datos esta dado por el valor -1

Diagrama de Flujo

donde RANGO1,RANGO2,RANGO3,RANGO4 son variables de tipo entero , son contadores, cuentan el numero de calificaciones que se encuentran entre los rangos dados respectivamente.

Codigo Consola Visual Basic

Module problema_320

    Sub Main()
        Dim RANGO1 As Integer = 0
        Dim RANGO2 As Integer = 0
        Dim RANGO3 As Integer = 0
        Dim RANGO4 As Integer = 0
        Dim CAL As Double

        Console.Write("Ingresa Calificacion [para terminar -1]: ")
        CAL = Val(Console.ReadLine)

        While CAL <> -1
            If CAL <= 3.99 Then
                RANGO1 = RANGO1 + 1
            Else
                If CAL <= 5.99 Then
                    RANGO2 = RANGO2 + 1
                Else
                    If CAL <= 7.99 Then
                        RANGO3 = RANGO3 + 1
                    Else
                        RANGO4 = RANGO4 + 1
                    End If
                End If
            End If
            Console.Write("Ingresa Calificacion [para terminar -1]: ")
            CAL = Val(Console.ReadLine)
        End While
        Console.WriteLine("0...3.99 = " & RANGO1)
        Console.WriteLine("4...5.99 = " & RANGO2)
        Console.WriteLine("6...7.99 = " & RANGO3)
        Console.WriteLine("8...10.0 = " & RANGO4)
        Console.ReadLine()
    End Sub

End Module