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