-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Un trabajador es contratado bajo las condiciones siguientes: Por las horas normales se le paga una tarifa fija. Se consideran horas normales a todas las horas trabajadas hasta un total de 140 al mes. Las horas adicionales a 140 se consideran como extras y una hora extra se paga equivalente a 1.5 horas normales. Los impuestos están en función al monto obtenido por el trabajador. Si el sueldo es menor o igual a $2,000 no paga impuestos, por los siguientes $2,000 paga el 10%, mientras que para los mayores a $4,000 paga el 15% sobre el adicional. ¿Cuál es el sueldo neto del trabajador y cuál es el monto en impuestos que debe pagar?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Proceso SueldoNetoEImpuestos
Escribir Sin Saltar "Ingresa el valor de horas trabajadas:";
Leer horas_trabajadas;
Escribir Sin Saltar "Ingresa el valor de pago por hora:";
Leer pago_por_hora;
Escribir Sin Saltar "Ingresa el valor de sueldo4000:";
Leer sueldo4000;
impuestos <- 0;
sueldo <- horas_trabajadas*pago_por_hora;
Si horas_trabajadas>140 Entonces
sueldo <- sueldo+(horas_trabajadas-140)*pago_por_hora*1.5;
FinSi
Si sueldo>2000 Entonces
impuestos <- (sueldo-2000)*0.1;
FinSi
Si sueldo>4000 Entonces
impuestos <- impuestos+(sueldo4000)*0.05;
FinSi
sueldo_neto <- sueldo-impuestos;
Escribir "Valor de impuestos: ", impuestos;
Escribir "Valor de sueldo: ", sueldo;
Escribir "Valor de sueldo neto: ", sueldo_neto;
FinProceso
Escribir Sin Saltar "Ingresa el valor de horas trabajadas:";
Leer horas_trabajadas;
Escribir Sin Saltar "Ingresa el valor de pago por hora:";
Leer pago_por_hora;
Escribir Sin Saltar "Ingresa el valor de sueldo4000:";
Leer sueldo4000;
impuestos <- 0;
sueldo <- horas_trabajadas*pago_por_hora;
Si horas_trabajadas>140 Entonces
sueldo <- sueldo+(horas_trabajadas-140)*pago_por_hora*1.5;
FinSi
Si sueldo>2000 Entonces
impuestos <- (sueldo-2000)*0.1;
FinSi
Si sueldo>4000 Entonces
impuestos <- impuestos+(sueldo4000)*0.05;
FinSi
sueldo_neto <- sueldo-impuestos;
Escribir "Valor de impuestos: ", impuestos;
Escribir "Valor de sueldo: ", sueldo;
Escribir "Valor de sueldo neto: ", sueldo_neto;
FinProceso