-
Lenguaje
Pascal
-
Descripción
Una agencia de venta de autos paga a su personal de venta un salario de 800 mas una comisión de 170 por auto vendido, mas un 5% de valor de venta.
Calcular el salario de un vendedor en un determinado mes conociendo el número de automóviles vendidos y el total de monto de ventas.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program SalarioDelPersonalDeVenta;
uses crt;
var autos_vendidos, monto_de_ventas, salario_del_mes : real;
begin
write ('Ingresa el valor de autos vendidos: ');
readln (autos_vendidos);
write ('Ingresa el valor de monto de ventas: ');
readln (monto_de_ventas);
salario_del_mes := 800.0+autos_vendidos*170.0+monto_de_ventas*0.05;
writeln ('Valor de salario del mes: ', salario_del_mes:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var autos_vendidos, monto_de_ventas, salario_del_mes : real;
begin
write ('Ingresa el valor de autos vendidos: ');
readln (autos_vendidos);
write ('Ingresa el valor de monto de ventas: ');
readln (monto_de_ventas);
salario_del_mes := 800.0+autos_vendidos*170.0+monto_de_ventas*0.05;
writeln ('Valor de salario del mes: ', salario_del_mes:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.