-
Lenguaje
Pascal
-
Descripción
Determinar cuanto finalmente pagará una persona por un artículo equis, considerando que tienen un descuento del 18% y debe pagar 10% 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
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program ArticuloCon18DeDescuento;
uses crt;
var articulo_x, iva, precio_con_descuento, precio_final : real;
begin
write ('Ingresa el valor de articulo x: ');
readln (articulo_x);
precio_con_descuento := articulo_x*0.2;
iva := precio_con_descuento*0.14;
precio_final := precio_con_descuento-iva;
writeln ('Valor de iva: ', iva: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.
uses crt;
var articulo_x, iva, precio_con_descuento, precio_final : real;
begin
write ('Ingresa el valor de articulo x: ');
readln (articulo_x);
precio_con_descuento := articulo_x*0.2;
iva := precio_con_descuento*0.14;
precio_final := precio_con_descuento-iva;
writeln ('Valor de iva: ', iva: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.