• 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
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.