• Lenguaje

    Pascal

  • Descripción

    Leer el nombre de 8 empleados, tipo de empleado y sueldo. Imprima el nuevo sueldo de acuerdo con lo siguiente:
    Si es empleado tipo 1 se le aumentará el 5%.
    Si es empleado tipo 2 se le aumentará el 7%.
    Si es empleado tipo 3 se le aumentará el 9%.
    Si es empleado tipo 4 se le aumentará el 12%.
    Si es empleado tipo 5 se le aumentará el 15%.

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
44
45
46
47
48
49
50
51
52
53
54
program AumentoA8Empleados;
uses crt;

var i, tipo_de_empleado : integer;
var aumento, nuevo_sueldo, sueldo : real;
var nombre_del_empleado : string;
begin
    for i:=1 to 8 do
    begin
        writeln ('PROCESO ', i);
        write ('Ingresa el nombre del empleado: ');
        readln (nombre_del_empleado);
        write ('Ingresa el valor de sueldo: ');
        readln (sueldo);
        aumento := 0;
        writeln ('Selecciona el valor de tipo de empleado.');
        writeln ('    1.- Uno');
        writeln ('    2.- Dos');
        writeln ('    3.- Tres');
        writeln ('    4.- Cuatro');
        writeln ('    5.- Cinco');
        write ('    : ');
        repeat
            readln (tipo_de_empleado);
            if (tipo_de_empleado<1) or (tipo_de_empleado>5) then
                write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
        until (tipo_de_empleado>=1) and (tipo_de_empleado<=5);
        if tipo_de_empleado=1 then
            begin
                aumento := sueldo*0.05;
            end;
        if tipo_de_empleado=2 then
            begin
                aumento := sueldo*0.07;
            end;
        if tipo_de_empleado=3 then
            begin
                aumento := sueldo*0.09;
            end;
        if tipo_de_empleado=4 then
            begin
                aumento := sueldo*0.12;
            end;
        if tipo_de_empleado=5 then
            begin
                aumento := sueldo*0.15;
            end;
        nuevo_sueldo := sueldo+aumento;
        writeln ('Nombre del empleado: ', nombre_del_empleado);
        writeln ('Valor de aumento: ', aumento:0:6);
        writeln ('Valor de nuevo sueldo: ', nuevo_sueldo:0:6);
        writeln;
    end;
end.