• Lenguaje

    Pascal

  • Descripción

    Calcule N número de empleados de una empresa.
    Se ingresa el nombre, el sueldo.
    - Se pide el monto total de sueldos de todos los empleados.
    - El número de empleados que ganan entre 2500 y 3500.
    - El número de empleados que ganan menos de 1000.
    - El número de empleados que ganan mas de 4000.

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
35
36
37
38
39
40
41
42
43
program MontoTotalDeSueldos;
uses crt;

var empleados_entre_2500_y_3500, empleados_mas_de_4000, empleados_menos_de_1000, i, n : integer;
var monto_total, sueldo : real;
var nombre_del_empleado : string;
begin
    empleados_entre_2500_y_3500 := 0;
    empleados_menos_de_1000 := 0;
    empleados_mas_de_4000 := 0;
    monto_total := 0;
    write ('Ingresa el valor de n: ');
    readln (n);
    for i:=1 to n do
    begin
        writeln ('PROCESO ', i);
        write ('Ingresa el nombre del empleado: ');
        readln (nombre_del_empleado);
        write ('Ingresa el valor de sueldo: ');
        readln (sueldo);
        monto_total := monto_total+sueldo;
        if (sueldo>=2500) and (sueldo<=3500) then
            begin
                empleados_entre_2500_y_3500 := empleados_entre_2500_y_3500+1;
            end;
        if sueldo<1000 then
            begin
                empleados_menos_de_1000 := empleados_menos_de_1000+1;
            end;
        if sueldo>4000 then
            begin
                empleados_mas_de_4000 := empleados_mas_de_4000+1;
            end;
        writeln ('Nombre del empleado: ', nombre_del_empleado);
        writeln;
    end;
    writeln ('Valor de empleados entre 2500 y 3500: ', empleados_entre_2500_y_3500);
    writeln ('Valor de empleados menos de 1000: ', empleados_menos_de_1000);
    writeln ('Valor de empleados mas de 4000: ', empleados_mas_de_4000);
    writeln ('Valor de monto total: ', monto_total:0:6);
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.