• Lenguaje

    Pascal

  • Descripción

    Realice el algoritmo para determinar cuanto pagara finalmente una persona por un artículo equis, considerando que tienes un descuento del 20%, y debe pagar 15% de IVA (debe mostrar el precio con descuento y el precio final).

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

var IVA, descuento, precio_con_descuento, precio_del_articulo_equis, precio_final : real;
begin
    write ('Ingresa el valor de precio del articulo equis: ');
    readln (precio_del_articulo_equis);
    descuento := precio_del_articulo_equis*0.2;
    precio_con_descuento := precio_del_articulo_equis-descuento;
    IVA := precio_con_descuento*0.15;
    precio_final := precio_con_descuento+IVA;
    writeln ('Valor de IVA: ', IVA:0:6);
    writeln ('Valor de descuento: ', descuento:0:6);
    writeln ('Valor de precio con descuento: ', precio_con_descuento:0:6);
    writeln ('Valor de precio final: ', precio_final:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.