-
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
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.
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.