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