• Lenguaje

    Pascal

  • 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
24
25
26
27
28
29
30
31
32
33
34
program SueldoNetoEImpuestos;
uses crt;

var horas_trabajadas, impuestos, pago_por_hora, sueldo, sueldo4000 : real;
var sueldo_neto : real;
begin
    write ('Ingresa el valor de horas trabajadas: ');
    readln (horas_trabajadas);
    write ('Ingresa el valor de pago por hora: ');
    readln (pago_por_hora);
    write ('Ingresa el valor de sueldo4000: ');
    readln (sueldo4000);
    impuestos := 0;
    sueldo := horas_trabajadas*pago_por_hora;
    if horas_trabajadas>140 then
        begin
            sueldo := sueldo+(horas_trabajadas-140)*pago_por_hora*1.5;
        end;
    if sueldo>2000 then
        begin
            impuestos := (sueldo-2000)*0.1;
        end;
    if sueldo>4000 then
        begin
            impuestos := impuestos+(sueldo4000)*0.05;
        end;
    sueldo_neto := sueldo-impuestos;
    writeln ('Valor de impuestos: ', impuestos:0:6);
    writeln ('Valor de sueldo: ', sueldo:0:6);
    writeln ('Valor de sueldo neto: ', sueldo_neto:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.