-
Lenguaje
Pascal
-
Descripción
Permita obtener el costo total de un producto sabiendo que recibe un descuento del 20% y tiene que pagar un IVA del 15% e ICE 8%.
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 IvaEIce;
uses crt;
var ICE, IVA, costo_del_producto, descuento, subtotal : real;
var total : real;
begin
write ('Ingresa el valor de costo del producto: ');
readln (costo_del_producto);
descuento := costo_del_producto*0.2;
subtotal := costo_del_producto-descuento;
IVA := subtotal*0.15;
ICE := subtotal*0.08;
total := subtotal+IVA+ICE;
writeln ('Valor de ICE: ', ICE:0:6);
writeln ('Valor de IVA: ', IVA:0:6);
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de subtotal: ', subtotal:0:6);
writeln ('Valor de total: ', total:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var ICE, IVA, costo_del_producto, descuento, subtotal : real;
var total : real;
begin
write ('Ingresa el valor de costo del producto: ');
readln (costo_del_producto);
descuento := costo_del_producto*0.2;
subtotal := costo_del_producto-descuento;
IVA := subtotal*0.15;
ICE := subtotal*0.08;
total := subtotal+IVA+ICE;
writeln ('Valor de ICE: ', ICE:0:6);
writeln ('Valor de IVA: ', IVA:0:6);
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de subtotal: ', subtotal:0:6);
writeln ('Valor de total: ', total:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.