• Lenguaje

    Pascal

  • Descripción

    Al realizar a una compra de un artículo determinado, del que se adquieren una o varias unidades. El IVA es del 13% y si el precio bruto ( precio venta mas IVA) es mayor de $50.00 se debe realizar un descuento del 5%. Imprimir el precio a pagar, el nombre del artículo y la cantidad de unidades.

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
28
29
30
31
32
33
34
35
program DescuentoPorPrecioBruto;
uses crt;

var IVA, descuento, precio_a_pagar, precio_bruto, precio_del_articulo : real;
var precio_venta, unidades : real;
var nombre_del_articulo : string;
begin
    write ('Ingresa el nombre del articulo: ');
    readln (nombre_del_articulo);
    write ('Ingresa el valor de precio del articulo: ');
    readln (precio_del_articulo);
    write ('Ingresa el valor de unidades: ');
    readln (unidades);
    precio_venta := precio_del_articulo*unidades;
    IVA := precio_venta*0.13;
    precio_bruto := precio_venta+IVA;
    if precio_bruto>50 then
        begin
            descuento := precio_bruto*0.05;
        end
    else
        begin
            descuento := 0;
        end;
    precio_a_pagar := precio_bruto-descuento;
    writeln ('Nombre del articulo: ', nombre_del_articulo);
    writeln ('Valor de IVA: ', IVA:0:6);
    writeln ('Valor de descuento: ', descuento:0:6);
    writeln ('Valor de precio a pagar: ', precio_a_pagar:0:6);
    writeln ('Valor de precio bruto: ', precio_bruto:0:6);
    writeln ('Valor de precio venta: ', precio_venta:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.