• Lenguaje

    Pascal

  • Descripción

    Calcular el ingreso que tiene un vendedor, teniendo en cuenta que su ingreso depende de la cantidad y clase de producto vendido. Se tiene lo siguiente:
    Existen cuatro tipos de productos (A, B, C, D)
    - Por el producto A, recibe el 5% por ventas menores a Bs. 100.000 y 6% por ventas mayores o iguales.
    - Por el producto B recibe el 8% por ventas mayores a Bs. 100.000 y el 7% por ventas menores o iguales.
    - Por el producto C, recibe el 9% por cualquier cantidad vendida.
    - Por el producto D, recibe el 10% por cualquier cantidad vendida.

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
program IngresoDeUnVendedor;
uses crt;

var cantidad_de_producto_A, cantidad_de_producto_B, cantidad_de_producto_C, cantidad_de_producto_D, costo_del_producto_A : real;
var costo_del_producto_B, costo_del_producto_C, costo_del_producto_D, ingreso, ventas_del_producto_A : real;
var ventas_del_producto_B, ventas_del_producto_C, ventas_del_producto_D : real;
begin
    write ('Ingresa el valor de cantidad de producto A: ');
    readln (cantidad_de_producto_A);
    write ('Ingresa el valor de cantidad de producto B: ');
    readln (cantidad_de_producto_B);
    write ('Ingresa el valor de cantidad de producto C: ');
    readln (cantidad_de_producto_C);
    write ('Ingresa el valor de cantidad de producto D: ');
    readln (cantidad_de_producto_D);
    write ('Ingresa el valor de costo del producto A: ');
    readln (costo_del_producto_A);
    write ('Ingresa el valor de costo del producto B: ');
    readln (costo_del_producto_B);
    write ('Ingresa el valor de costo del producto C: ');
    readln (costo_del_producto_C);
    write ('Ingresa el valor de costo del producto D: ');
    readln (costo_del_producto_D);
    ventas_del_producto_A := costo_del_producto_A*cantidad_de_producto_A;
    ventas_del_producto_B := costo_del_producto_B*cantidad_de_producto_B;
    ventas_del_producto_C := costo_del_producto_C*cantidad_de_producto_C;
    ventas_del_producto_D := costo_del_producto_D*cantidad_de_producto_D;
    ingreso := ventas_del_producto_C*0.09+ventas_del_producto_D*0.1;
    if ventas_del_producto_A<100000 then
        begin
            ingreso := ingreso+ventas_del_producto_A*0.05;
        end
    else
        begin
            ingreso := ingreso+ventas_del_producto_A*0.06;
        end;
    if ventas_del_producto_B>100000 then
        begin
            ingreso := ingreso+ventas_del_producto_B*0.08;
        end
    else
        begin
            ingreso := ingreso+ventas_del_producto_B*0.07;
        end;
    writeln ('Valor de ingreso: ', ingreso:0:6);
    writeln ('Valor de ventas del producto A: ', ventas_del_producto_A:0:6);
    writeln ('Valor de ventas del producto B: ', ventas_del_producto_B:0:6);
    writeln ('Valor de ventas del producto C: ', ventas_del_producto_C:0:6);
    writeln ('Valor de ventas del producto D: ', ventas_del_producto_D:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.