-
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.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program VentaDeUnAlmacen;
uses crt;
var IVA, descuento, numero_de_productos_codigo1, numero_de_productos_codigo2, total_a_pagar : real;
var total_de_la_compra : real;
begin
write ('Ingresa el valor de numero de productos codigo1: ');
readln (numero_de_productos_codigo1);
write ('Ingresa el valor de numero de productos codigo2: ');
readln (numero_de_productos_codigo2);
total_de_la_compra := numero_de_productos_codigo1*2.5+numero_de_productos_codigo2*3.75;
descuento := total_de_la_compra*0.15;
IVA := (total_a_pagar-descuento)*0.13;
total_a_pagar := total_a_pagar-descuento+IVA;
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;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var IVA, descuento, numero_de_productos_codigo1, numero_de_productos_codigo2, total_a_pagar : real;
var total_de_la_compra : real;
begin
write ('Ingresa el valor de numero de productos codigo1: ');
readln (numero_de_productos_codigo1);
write ('Ingresa el valor de numero de productos codigo2: ');
readln (numero_de_productos_codigo2);
total_de_la_compra := numero_de_productos_codigo1*2.5+numero_de_productos_codigo2*3.75;
descuento := total_de_la_compra*0.15;
IVA := (total_a_pagar-descuento)*0.13;
total_a_pagar := total_a_pagar-descuento+IVA;
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;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.