-
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
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.
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.