• Lenguaje

    Pascal

  • Descripción

    Lea precio unitario y cantidad de artículos y calcule el valor a pagar por la compra, sabiendo que la tasa del IVA es del 19% del valor total. Escribir el precio unitario, la cantidad, el valor total, el valor del IVA y el valor neto a pagar.

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

var IVA, cantidad_de_articulos, neto, precio_unitario, total : real;
begin
    write ('Ingresa el valor de cantidad de articulos: ');
    readln (cantidad_de_articulos);
    write ('Ingresa el valor de precio unitario: ');
    readln (precio_unitario);
    total := precio_unitario*cantidad_de_articulos;
    IVA := total*0.19;
    neto := total+IVA;
    writeln ('Valor de IVA: ', IVA:0:6);
    writeln ('Valor de neto: ', neto:0:6);
    writeln ('Valor de total: ', total:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.