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