-
Lenguaje
Pascal
-
Descripción
Determinar el salario neto de un empleado de una compañía con base en el salario básico, bonificación, descuento y categoría. Considere la siguiente tabla:
Categoría | Bonificación | Descuento
1 | 15% | 4%
2 | 13% | 3%
3 | 12% | 2%
4 | 9.5% | 0%
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
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
program SalarioPorBonificacionDescuentoYCategoria;
uses crt;
var bonificacion, categoria, descuento, salario_basico, salario_neto : real;
begin
write ('Ingresa el valor de categoria: ');
readln (categoria);
write ('Ingresa el valor de salario basico: ');
readln (salario_basico);
bonificacion := 0;
descuento := 0;
if categoria=1 then
begin
bonificacion := salario_basico*0.15;
descuento := salario_basico*0.04;
end;
if categoria=2 then
begin
bonificacion := salario_basico*0.13;
descuento := salario_basico*0.03;
end;
if categoria=3 then
begin
bonificacion := salario_basico*0.12;
descuento := salario_basico*0.02;
end;
if categoria=4 then
begin
bonificacion := salario_basico*0.095;
end;
salario_neto := salario_basico+bonificacion-descuento;
writeln ('Valor de bonificacion: ', bonificacion:0:6);
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de salario neto: ', salario_neto:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var bonificacion, categoria, descuento, salario_basico, salario_neto : real;
begin
write ('Ingresa el valor de categoria: ');
readln (categoria);
write ('Ingresa el valor de salario basico: ');
readln (salario_basico);
bonificacion := 0;
descuento := 0;
if categoria=1 then
begin
bonificacion := salario_basico*0.15;
descuento := salario_basico*0.04;
end;
if categoria=2 then
begin
bonificacion := salario_basico*0.13;
descuento := salario_basico*0.03;
end;
if categoria=3 then
begin
bonificacion := salario_basico*0.12;
descuento := salario_basico*0.02;
end;
if categoria=4 then
begin
bonificacion := salario_basico*0.095;
end;
salario_neto := salario_basico+bonificacion-descuento;
writeln ('Valor de bonificacion: ', bonificacion:0:6);
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de salario neto: ', salario_neto:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.