Salario de un vendedor de una agencia en lenguaje Pascal

Lenguaje

Pascal
Descripción

Una agencia de venta de autos paga a su personal de ventas un salario de $800,00 mas una comisión de $170,00 por auto vendido más un 5% del valor de venta. Diseñar un algoritmo para calcular el salario de un vendedor en un determinado mes, conociendo el número de automóviles vendidos y el total del monto de ventas.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

program SalarioDeUnVendedorDeUnaAgencia;

uses crt;

var comision, monto_de_ventas, numero_de_automoviles, salario, salario_del_vendedor : real;

begin

    write ('Ingresa el valor de monto de ventas: ');

    readln (monto_de_ventas);

    write ('Ingresa el valor de numero de automoviles: ');

    readln (numero_de_automoviles);

    salario := 800;

    comision := 170;

    salario_del_vendedor := salario+numero_de_automoviles*comision+monto_de_ventas*0.05;

    writeln ('Valor de comision: ', comision:0:6);

    writeln ('Valor de salario: ', salario:0:6);

    writeln ('Valor de salario del vendedor: ', salario_del_vendedor:0:6);

    writeln;

    write ('Presiona una tecla para terminar . . . ');

    readkey;

end.