• Lenguaje

    Pascal

  • Descripción

    Leer el nombre, tipo de empleado y sueldo de un empleado e imprimir el incremento de sueldo y su nuevo salario de acuerdo a lo siguiente:
    - Si el tipo de empleado es 1 se aumentará el 5%.
    - Si es tipo 2 se aumentará el 7%, si es 3 el 9%, si es 4 al 12% y si es 5 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
program IncrementoDeSueldoPorTipoDeEmpleado;
uses crt;

var incremento, nuevo_salario, sueldo, tipo_de_empleado : real;
var nombre : string;
begin
    write ('Ingresa el nombre: ');
    readln (nombre);
    write ('Ingresa el valor de sueldo: ');
    readln (sueldo);
    write ('Ingresa el valor de tipo de empleado: ');
    readln (tipo_de_empleado);
    incremento := 0;
    if tipo_de_empleado=1 then
        begin
            incremento := sueldo*0.05;
        end;
    if tipo_de_empleado=2 then
        begin
            incremento := sueldo*0.07;
        end;
    if tipo_de_empleado=3 then
        begin
            incremento := sueldo*0.09;
        end;
    if tipo_de_empleado=4 then
        begin
            incremento := sueldo*0.12;
        end;
    if tipo_de_empleado=5 then
        begin
            incremento := sueldo*0.15;
        end;
    nuevo_salario := sueldo+incremento;
    writeln ('Nombre: ', nombre);
    writeln ('Valor de incremento: ', incremento:0:6);
    writeln ('Valor de nuevo salario: ', nuevo_salario:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.