-
Lenguaje
Pascal
-
Descripción
Ingresar el precio de compra unitario de un producto, la cantidad de compra de dicho producto; calcular y mostrar el precio parcial (precio unitario * cantidad), el monto del IGV que es el 18% del precio parcial, y el precio neto (precio parcial + monto del IGV).
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 PrecioParcialNetoEIgv;
uses crt;
var cantidad, monto_del_IGV, precio_neto, precio_parcial, precio_unitario : real;
begin
write ('Ingresa el valor de cantidad: ');
readln (cantidad);
write ('Ingresa el valor de precio unitario: ');
readln (precio_unitario);
precio_parcial := precio_unitario*cantidad;
monto_del_IGV := precio_parcial*0.18;
precio_neto := precio_parcial+monto_del_IGV;
writeln ('Valor de monto del IGV: ', monto_del_IGV:0:6);
writeln ('Valor de precio neto: ', precio_neto:0:6);
writeln ('Valor de precio parcial: ', precio_parcial:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var cantidad, monto_del_IGV, precio_neto, precio_parcial, precio_unitario : real;
begin
write ('Ingresa el valor de cantidad: ');
readln (cantidad);
write ('Ingresa el valor de precio unitario: ');
readln (precio_unitario);
precio_parcial := precio_unitario*cantidad;
monto_del_IGV := precio_parcial*0.18;
precio_neto := precio_parcial+monto_del_IGV;
writeln ('Valor de monto del IGV: ', monto_del_IGV:0:6);
writeln ('Valor de precio neto: ', precio_neto:0:6);
writeln ('Valor de precio parcial: ', precio_parcial:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.