-
Lenguaje
Pascal
-
Descripción
En una empresa le dan a los empleados un bono de transporte si el sueldo básico de estos es menor que el salario mínimo (850), este bono es el 30% del sueldo base. si es igual o mayor a 850 el bono es del 20%. Escribir un algorimo que calcule y muestre el salario neto de un empleado.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program BonoDeTransporte;
uses crt;
var bono, salario_minimo, salario_neto, sueldo_basico : real;
begin
write ('Ingresa el valor de sueldo basico: ');
readln (sueldo_basico);
salario_minimo := 850;
if sueldo_basico<salario_minimo then
begin
bono := sueldo_basico*0.3;
end
else
begin
bono := sueldo_basico*0.2;
end;
salario_neto := sueldo_basico+bono;
writeln ('Valor de bono: ', bono:0:6);
writeln ('Valor de salario minimo: ', salario_minimo:0:6);
writeln ('Valor de salario neto: ', salario_neto:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var bono, salario_minimo, salario_neto, sueldo_basico : real;
begin
write ('Ingresa el valor de sueldo basico: ');
readln (sueldo_basico);
salario_minimo := 850;
if sueldo_basico<salario_minimo then
begin
bono := sueldo_basico*0.3;
end
else
begin
bono := sueldo_basico*0.2;
end;
salario_neto := sueldo_basico+bono;
writeln ('Valor de bono: ', bono:0:6);
writeln ('Valor de salario minimo: ', salario_minimo:0:6);
writeln ('Valor de salario neto: ', salario_neto:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.