-
Lenguaje
Pascal
-
Descripción
Determinar la cantidad del bono navideño que recibirá un empleado de una tienda, considerando que si su antigüedad es mayor a cuatro años o su sueldo es menor de dos mil pesos, le corresponderá 25 % de su sueldo, y en caso contrario sólo le corresponderá 20 % de éste.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program BonoNavideno;
uses crt;
var antiguedad, bono_navideno, sueldo : real;
begin
write ('Ingresa el valor de antiguedad: ');
readln (antiguedad);
write ('Ingresa el valor de sueldo: ');
readln (sueldo);
if (antiguedad>4) or (sueldo<2000) then
begin
bono_navideno := sueldo*0.25;
end
else
begin
bono_navideno := sueldo*0.2;
end;
writeln ('Valor de bono navideno: ', bono_navideno:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var antiguedad, bono_navideno, sueldo : real;
begin
write ('Ingresa el valor de antiguedad: ');
readln (antiguedad);
write ('Ingresa el valor de sueldo: ');
readln (sueldo);
if (antiguedad>4) or (sueldo<2000) then
begin
bono_navideno := sueldo*0.25;
end
else
begin
bono_navideno := sueldo*0.2;
end;
writeln ('Valor de bono navideno: ', bono_navideno:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.