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