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