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