-
Lenguaje
Pascal
-
Descripción
Se requiere calcular el sueldo final del mes de agosto de un empleado. Gana 2’000.000 de sueldo básico, este mes vendió 6’000.000. Recibe una comisión del 6% sobre el total de sus ventas. Se le retiene el 12% del sueldo básico para salud y pensión.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program SueldoFinalDeAgosto;
uses crt;
var comision, salud_y_pension, sueldo_basico, sueldo_final, ventas : real;
begin
sueldo_basico := 2000000;
ventas := 6000000;
salud_y_pension := sueldo_basico*0.12;
comision := ventas*0.06;
sueldo_final := sueldo_basico+comision-salud_y_pension;
writeln ('Valor de comision: ', comision:0:6);
writeln ('Valor de salud y pension: ', salud_y_pension:0:6);
writeln ('Valor de sueldo basico: ', sueldo_basico:0:6);
writeln ('Valor de sueldo final: ', sueldo_final:0:6);
writeln ('Valor de ventas: ', ventas:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var comision, salud_y_pension, sueldo_basico, sueldo_final, ventas : real;
begin
sueldo_basico := 2000000;
ventas := 6000000;
salud_y_pension := sueldo_basico*0.12;
comision := ventas*0.06;
sueldo_final := sueldo_basico+comision-salud_y_pension;
writeln ('Valor de comision: ', comision:0:6);
writeln ('Valor de salud y pension: ', salud_y_pension:0:6);
writeln ('Valor de sueldo basico: ', sueldo_basico:0:6);
writeln ('Valor de sueldo final: ', sueldo_final:0:6);
writeln ('Valor de ventas: ', ventas:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.