Sistema de facturación en lenguaje Pascal

Lenguaje

Pascal
Descripción

Se requiere elaborar un programa para un sistema de facturación de la siguiente forma:
Entrar los siguientes datos: código del producto, nombre del producto, cantidad, precio unidad.
Encontrar subtotal que es igual a cantidad por precio. Al producto se le puede dar un porcentaje de descuento y un impuesto. Decir que valor de impuesto se tiene y que valor de descuento fue dado. Encontrar también el valor del producto total.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

program SistemaDeFacturacion;

uses crt;

var cantidad, descuento, impuesto, porcentaje_de_descuento, porcentaje_de_impuesto : real;

var precio_unidad, subtotal, total : real;

var codigo_del_producto, nombre_del_producto : string;

begin

    write ('Ingresa el codigo del producto: ');

    readln (codigo_del_producto);

    write ('Ingresa el nombre del producto: ');

    readln (nombre_del_producto);

    write ('Ingresa el valor de cantidad: ');

    readln (cantidad);

    write ('Ingresa el valor de porcentaje de descuento: ');

    readln (porcentaje_de_descuento);

    write ('Ingresa el valor de porcentaje de impuesto: ');

    readln (porcentaje_de_impuesto);

    write ('Ingresa el valor de precio unidad: ');

    readln (precio_unidad);

    subtotal := cantidad*precio_unidad;

    descuento := subtotal*porcentaje_de_descuento/100;

    impuesto := (subtotal-descuento)*porcentaje_de_impuesto/100;

    total := subtotal-descuento+impuesto;

    writeln ('Codigo del producto: ', codigo_del_producto);

    writeln ('Nombre del producto: ', nombre_del_producto);

    writeln ('Valor de descuento: ', descuento:0:6);

    writeln ('Valor de impuesto: ', impuesto: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.