-
Lenguaje
Pascal
-
Descripción
Calcular el total a pagar, en una venta normal de un almacén, éste posee dos productos identificados con el código1 y código2, cuyos precios son ($2.50 y $3.75), el cliente debe proporcionar el número de total de productos a comprar y el tipo de producto. Además se debe tomar en cuenta que el almacén ofrece un descuento del 15% sobre el total de la compra y un cliente desea saber cuánto deberá pagar finalmente por su compra. Adicionalmente se debe calcular el 13% de IVA a la compra.
La solución se debe diseñar para que se repita N veces y muestre la siguiente información:
a. Cantidad de productos por código.
b. Monto total de descuento otorgado.
c. ¿Cuáles serían los ingresos reales de la empresa si no se hubiera otorgado descuentos?
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
uses crt;
var i, n, productos_por_codigo_1, productos_por_codigo_2 : integer;
var IVA, descuento, descuento_otorgado, ingresos_reales, numero_de_productos_codigo_1 : real;
var numero_de_productos_codigo_2, total_a_pagar, total_de_la_compra : real;
begin
productos_por_codigo_1 := 0;
productos_por_codigo_2 := 0;
descuento_otorgado := 0;
ingresos_reales := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de numero de productos codigo 1: ');
readln (numero_de_productos_codigo_1);
write ('Ingresa el valor de numero de productos codigo 2: ');
readln (numero_de_productos_codigo_2);
total_de_la_compra := numero_de_productos_codigo_1*2.5+numero_de_productos_codigo_2*3.75;
descuento := total_de_la_compra*0.15;
IVA := (total_a_pagar-descuento)*0.13;
total_a_pagar := total_a_pagar-descuento+IVA;
productos_por_codigo_1 := productos_por_codigo_1+numero_de_productos_codigo_1;
productos_por_codigo_2 := productos_por_codigo_2+numero_de_productos_codigo_2;
descuento_otorgado := descuento_otorgado+descuento;
ingresos_reales := ingresos_reales+total_de_la_compra;
writeln ('Valor de IVA: ', IVA:0:6);
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de total a pagar: ', total_a_pagar:0:6);
writeln ('Valor de total de la compra: ', total_de_la_compra:0:6);
writeln;
end;
writeln ('Valor de productos por codigo 1: ', productos_por_codigo_1);
writeln ('Valor de productos por codigo 2: ', productos_por_codigo_2);
writeln ('Valor de descuento otorgado: ', descuento_otorgado:0:6);
writeln ('Valor de ingresos reales: ', ingresos_reales:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.