• Lenguaje

    Pascal

  • Descripción

    Calcule el sueldo final de un empleado que se le paga S/.30.00 por cada hora trabajada en el mes; así mismo, todos los empleados reciben un pago de gratificación de acuerdo a los años de servicios que tiene el empleado, como se muestra en el siguiente cuadro:
    Años de Servicios | % de Gratificación
    0 a 5 | 60%
    6 a 10 | 80%
    11 a más | 100%

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
program GratificacionPorAnosDeServicio;
uses crt;

var anos_de_servicio, gratificacion, horas_trabajadas, sueldo_bruto, sueldo_final : real;
begin
    write ('Ingresa el valor de anos de servicio: ');
    readln (anos_de_servicio);
    write ('Ingresa el valor de horas trabajadas: ');
    readln (horas_trabajadas);
    gratificacion := 0;
    sueldo_bruto := horas_trabajadas*30;
    if anos_de_servicio<6 then
        begin
            gratificacion := sueldo_bruto*0.6;
        end;
    if (anos_de_servicio>=6) and (anos_de_servicio<11) then
        begin
            gratificacion := sueldo_bruto*0.8;
        end;
    if anos_de_servicio>=11 then
        begin
            gratificacion := sueldo_bruto;
        end;
    sueldo_final := sueldo_bruto+gratificacion;
    writeln ('Valor de gratificacion: ', gratificacion:0:6);
    writeln ('Valor de sueldo bruto: ', sueldo_bruto:0:6);
    writeln ('Valor de sueldo final: ', sueldo_final:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.