lunes, 4 de enero de 2010

VbNet 1----Programacion en Consola----Condicion If

Hallar el sueldo de un empleado segun su cargo y categoría, si su cargo es "Gerente" y pertenece a la categoría "a"  su sueldo es 2580 soles, recibirá una bonificación del 2% y tendrá un descuento del 1.8 %, si su categoría es "b" su sueldo será 2400 soles,recibirá una bonificación del 3% y tendrá un descuento del 2%, si su categoría es "c" su sueldo será 2350 soles, recibirá una bonificación del 1.2 % y tendrá un descuento del 1%.Si el cargo es "Obrero" y su categoría es "a" su sueldo será 2200 soles, recibirá una bonificación del 1.3% y tendrá un descuento del 1%, si su categoría es "b" su sueldo será 1800soles, recibirá una bonificación del 2% y tendrá un descuento del 2%, si su categoría es "c" su sueldo será 1000 soles , recibirá una bonificación del 2.1% y tendra un descuento del 2%

Module Module1
    Sub Main()
        Dim cargo, cat As String
        Dim su, boni, des, sn As Double
        Console.Write("ingrese cargo :")
        cargo = Console.ReadLine
        Console.Write("ingrese categoria :")
        cat = Console.ReadLine
        If cargo = "gerente" Then
            If cat = "a" Then
                su = 2580
                boni = su * 0.02
                des = su * 0.018
            ElseIf cat = "b" Then
                su = 2400
                boni = su * 0.03
                des = su * 0.02
            ElseIf cat = "c" Then
                su = 2350
                boni = su * 0.012
                des = su * 0.01
            End If
        ElseIf cargo = "obrero" Then
            If cat = "a" Then
                su = 2200
                boni = su * 0.013
                des = su * 0.01
            ElseIf cat = "b" Then
                su = 1800
                boni = su * 0.02
                des = su * 0.02
            ElseIf cat = "c" Then
                su = 1000
                boni = su * 0.021
                des = su * 0.02
            End If
        End If
        sn = su + boni - des
        Console.WriteLine("el sueldo es :" & su)
        Console.WriteLine("la bonificacion es :" & boni)
        Console.WriteLine("el descuento es :" & des)
        Console.Write("el sueldo neto es :" & sn)
        Console.Read()
    End Sub
End Module

No hay comentarios:

Publicar un comentario