• Lenguaje

    Pascal

  • Descripción

    Una empresa ha decidido otorgar una bonificación a sus empleados por única vez. La bonificación estará compuesta de la suma de una bonificación por hijos más una bonificación por tiempo de servicio. La bonificación por hijos será igual a S/. 25 por cada hijo. La bonificación por tiempo de servicio será igual a S/. 50 por cada año de tiempo de servicio. Dado el número de hijos y el número de años de tiempo de servicio, diseñe un algoritmo que determine el importe de la bonificación por hijos, el importe de la bonificación por tiempo de servicio y el importe de la bonificación total que le corresponden a un empleado.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program BonificacionAEmpleados;
uses crt;

var annos_de_servicio, bonificacion_por_hijos, bonificacion_por_tiempo, bonificacion_total, numero_de_hijos : integer;
begin
    write ('Ingresa el valor de annos de servicio: ');
    readln (annos_de_servicio);
    write ('Ingresa el valor de numero de hijos: ');
    readln (numero_de_hijos);
    bonificacion_por_hijos := numero_de_hijos*25;
    bonificacion_por_tiempo := annos_de_servicio*50;
    bonificacion_total := bonificacion_por_hijos+bonificacion_por_tiempo;
    writeln ('Valor de bonificacion por hijos: ', bonificacion_por_hijos);
    writeln ('Valor de bonificacion por tiempo: ', bonificacion_por_tiempo);
    writeln ('Valor de bonificacion total: ', bonificacion_total);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.