Vendedores de una compañía de seguros en lenguaje Pascal

Lenguaje

Pascal
Descripción

Una compañía de seguros tiene contratados a n vendedores. Cada uno hace tres ventas a la semana. Su política de pagos es que un vendedor recibe un sueldo base, y un 10% extra por comisiones de sus ventas. El gerente de su compañía desea saber cuánto dinero obtendrá en la semana cada vendedor por concepto de comisiones por las tres ventas realizadas, y cuanto tomando en cuenta su sueldo base y sus comisiones.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

program VendedoresDeUnaCompaniaDeSeguros;

uses crt;

var i, n : integer;

var comisiones, pago, sueldo_base, venta_1, venta_2 : real;

var venta_3 : real;

begin

    write ('Ingresa el valor de n: ');

    readln (n);

    for i:=1 to n do

    begin

        writeln ('PROCESO ', i);

        write ('Ingresa el valor de sueldo base: ');

        readln (sueldo_base);

        write ('Ingresa el valor de venta 1: ');

        readln (venta_1);

        write ('Ingresa el valor de venta 2: ');

        readln (venta_2);

        write ('Ingresa el valor de venta 3: ');

        readln (venta_3);

        comisiones := (venta_1+venta_2+venta_3)*0.1;

        pago := sueldo_base+comisiones;

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

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

        writeln;

    end;

end.