• Lenguaje

    Pascal

  • Descripción

    Una tienda se dedica a la venta de computadoras. Cada vendedor tiene un sueldo mensual básico, pero además de su sueldo ganan una comisión por venta del 3%. Si se conoce el monto de la venta mensual, determine el salario a pagar.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program VendedorDeComputadoras;
uses crt;

var salario_a_pagar, sueldo_mensual_basico, venta_mensual : real;
begin
    write ('Ingresa el valor de sueldo mensual basico: ');
    readln (sueldo_mensual_basico);
    write ('Ingresa el valor de venta mensual: ');
    readln (venta_mensual);
    salario_a_pagar := sueldo_mensual_basico+venta_mensual*0.03;
    writeln ('Valor de salario a pagar: ', salario_a_pagar:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.