• Lenguaje

    Pascal

  • Descripción

    Una empresa desea adquirir cierta cantidad de unidades de dos productos A y B a un proveedor cuyos precios son los siguientes:
    - Producto A: costo unitario igual a $25.00 y 15% de descuento para más de 50 unidades adquiridas.
    - Producto B: costo unitario igual a $27.50 y 10% de descuento para más de 35 unidades adquiridas.
    Determine el importe bruto total, el importe del descuento total y el importe total a pagar por la compra de cierta cantidad de unidades de ambos productos.

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 ProductosAYB;
uses crt;

var descuento_total, importe_bruto_total, importe_total_a_pagar, unidades_del_producto_A, unidades_del_producto_B : real;
begin
    write ('Ingresa el valor de unidades del producto A: ');
    readln (unidades_del_producto_A);
    write ('Ingresa el valor de unidades del producto B: ');
    readln (unidades_del_producto_B);
    importe_bruto_total := unidades_del_producto_A*25+unidades_del_producto_B*27.5;
    descuento_total := 0;
    if unidades_del_producto_A>50 then
        begin
            descuento_total := descuento_total+unidades_del_producto_A*25*0.15;
        end;
    if unidades_del_producto_B>35 then
        begin
            descuento_total := descuento_total+unidades_del_producto_B*27.5*0.1;
        end;
    importe_total_a_pagar := importe_bruto_total-descuento_total;
    writeln ('Valor de descuento total: ', descuento_total:0:6);
    writeln ('Valor de importe bruto total: ', importe_bruto_total:0:6);
    writeln ('Valor de importe total a pagar: ', importe_total_a_pagar:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.