• Lenguaje

    Pascal

  • Descripción

    Pedirás los datos del cliente: Nombre, RFC y dirección.
    Deberás capturar al menos dos compras en la cual ingreses:
    - Concepto
    - Cantidad
    - Precio unitario
    El programa deberá de limpiar la pantalla y mostrar la factura del cliente con la siguiente información:
    - Nombre, RFC y dirección del cliente
    - Concepto, cantidad, precio unitario y subtotal del primer producto
    - Concepto, cantidad, precio unitario y subtotal del segundo producto
    - Subtotal de la compra
    - IVA
    - Total de la compra

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
34
35
36
37
38
39
40
41
42
43
44
program FacturaDeUnCliente;
uses crt;

var IVA, cantidad_del_primer_producto, cantidad_del_segundo_producto, precio_unitario_del_primer_producto, precio_unitario_del_segundo_producto : real;
var subtotal_de_la_compra, subtotal_del_primer_producto, subtotal_del_segundo_producto, total_de_la_compra : real;
var nombre, RFC, direccion, concepto_del_primer_producto, concepto_del_segundo_producto : string;
begin
    write ('Ingresa el nombre: ');
    readln (nombre);
    write ('Ingresa el RFC: ');
    readln (RFC);
    write ('Ingresa el direccion: ');
    readln (direccion);
    write ('Ingresa el concepto del primer producto: ');
    readln (concepto_del_primer_producto);
    write ('Ingresa el concepto del segundo producto: ');
    readln (concepto_del_segundo_producto);
    write ('Ingresa el valor de cantidad del primer producto: ');
    readln (cantidad_del_primer_producto);
    write ('Ingresa el valor de cantidad del segundo producto: ');
    readln (cantidad_del_segundo_producto);
    write ('Ingresa el valor de precio unitario del primer producto: ');
    readln (precio_unitario_del_primer_producto);
    write ('Ingresa el valor de precio unitario del segundo producto: ');
    readln (precio_unitario_del_segundo_producto);
    subtotal_del_primer_producto := cantidad_del_primer_producto*precio_unitario_del_primer_producto;
    subtotal_del_segundo_producto := cantidad_del_segundo_producto*precio_unitario_del_segundo_producto;
    subtotal_de_la_compra := subtotal_del_primer_producto+subtotal_del_segundo_producto;
    IVA := subtotal_de_la_compra*0.16;
    total_de_la_compra := subtotal_de_la_compra+IVA;
    writeln ('Nombre: ', nombre);
    writeln ('RFC: ', RFC);
    writeln ('Direccion: ', direccion);
    writeln ('Concepto del primer producto: ', concepto_del_primer_producto);
    writeln ('Concepto del segundo producto: ', concepto_del_segundo_producto);
    writeln ('Valor de IVA: ', IVA:0:6);
    writeln ('Valor de subtotal de la compra: ', subtotal_de_la_compra:0:6);
    writeln ('Valor de subtotal del primer producto: ', subtotal_del_primer_producto:0:6);
    writeln ('Valor de subtotal del segundo producto: ', subtotal_del_segundo_producto:0:6);
    writeln ('Valor de total de la compra: ', total_de_la_compra:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.