-
Lenguaje
Pascal
-
Descripción
Determinar cuánto pagará finalmente una persona por un artículo, considerando que tiene un descuento de 20%, y debe pagar 16% 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
20
21
22
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program PrecioCon20DeDescuentoMasIva;
uses crt;
var IVA, cantidad_de_articulos, descuento, precio_con_descuento, precio_del_articulo : real;
var precio_final : real;
begin
write ('Ingresa el valor de cantidad de articulos: ');
readln (cantidad_de_articulos);
write ('Ingresa el valor de precio del articulo: ');
readln (precio_del_articulo);
descuento := precio_del_articulo*cantidad_de_articulos*0.2;
precio_con_descuento := precio_del_articulo*cantidad_de_articulos-descuento;
IVA := precio_con_descuento*0.16;
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.
uses crt;
var IVA, cantidad_de_articulos, descuento, precio_con_descuento, precio_del_articulo : real;
var precio_final : real;
begin
write ('Ingresa el valor de cantidad de articulos: ');
readln (cantidad_de_articulos);
write ('Ingresa el valor de precio del articulo: ');
readln (precio_del_articulo);
descuento := precio_del_articulo*cantidad_de_articulos*0.2;
precio_con_descuento := precio_del_articulo*cantidad_de_articulos-descuento;
IVA := precio_con_descuento*0.16;
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.