TOP

Visual Basic Consola - Selección 05




05.  En la ciudad de Lima, una agencia de seguros para automóviles asigna costos basados en el sexo y la edad del conductor. Los varones menores de 25 años pagan los precios más altos, 1000 soles. Los hombres de 25 años a más pagan 700 soles. Las mujeres de menos de 21 años o más pagan 500 soles. Escribe el algoritmo del programa que imprima la edad del conductor, sexo y el pago correspondiente para los clientes de la aseguradora.


Imports System.Console
Module Module5
    Dim sexo As String
    Dim edad As Integer
    Dim costos As Double
    Sub Main()
        Write("Ingrese su sexo H - M : ")
        sexo = ReadLine()
        Write("Ingrese Edad : ")
        edad = ReadLine()
        Select Case sexo.ToUpper
            Case "H"
                If edad < 25 Then
                    costos = 1000
                Else
                    costos = 700
                End If
            Case "M"
                If edad < 21 Then
                    costos = 500
                End If
        End Select
        WriteLine()
        WriteLine("Edad : " & edad)
        WriteLine("Sexo : " & sexo)
        WriteLine("Pago : " & costos)
        ReadLine()
    End Sub
End Module

share_facebook

DAME UN ME GUSTA - SI VALORAS ESTE CÓDIGO



0 comentarios:

Publicar un comentario

Danos tu opinión o déjanos tu ejercicio! - Algoritmos, pseudocódigo y lo pasamos a Visual Basic consola.