-
Lenguaje
Pascal
-
Descripción
Una constructora inmobiliaria compra directamente en fábrica páneles solares, al precio mercado se le hace un descuento del 40% y al facturar se le cobra un 18% de iva ¿al final cuánto es el costo del panel?
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 PanelesSolares;
uses crt;
var costo_del_panel, descuento, iva, precio_mercado : real;
begin
write ('Ingresa el valor de precio mercado: ');
readln (precio_mercado);
descuento := precio_mercado*0.4;
iva := (precio_mercado-descuento)*0.18;
costo_del_panel := precio_mercado-descuento+iva;
writeln ('Valor de costo del panel: ', costo_del_panel:0:6);
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de iva: ', iva:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var costo_del_panel, descuento, iva, precio_mercado : real;
begin
write ('Ingresa el valor de precio mercado: ');
readln (precio_mercado);
descuento := precio_mercado*0.4;
iva := (precio_mercado-descuento)*0.18;
costo_del_panel := precio_mercado-descuento+iva;
writeln ('Valor de costo del panel: ', costo_del_panel:0:6);
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de iva: ', iva:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.