• Lenguaje

    Pascal

  • Descripción

    Conocer el precio final de un artículo que pueda tener un porcentaje de descuento y debe pagar 16% de IVA.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program IvaDel16;
uses crt;

var IVA, descuento, porcentaje_de_descuento, precio_final, precio_normal : real;
begin
    write ('Ingresa el valor de porcentaje de descuento: ');
    readln (porcentaje_de_descuento);
    write ('Ingresa el valor de precio normal: ');
    readln (precio_normal);
    descuento := precio_normal*porcentaje_de_descuento/100;
    IVA := (precio_normal-descuento)*0.16;
    precio_final := precio_normal-descuento+IVA;
    writeln ('Valor de IVA: ', IVA:0:6);
    writeln ('Valor de descuento: ', descuento:0:6);
    writeln ('Valor de precio final: ', precio_final:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.