-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Suponga que tiene Ud. una tienda y desea registrar las ventas en una computadora. Diseñe un algoritmo que lea por cada cliente el monto de la venta y:
- Calcule e imprima el IVA
- Calcule e imprima en total a pagar
- Lea la cantidad con la que paga el cliente
- Calcule e imprima el cambio
- Imprima un cierre diario con el dinero que debe haber en la caja por día
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
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Proceso RegistroDeVentasDiario
cierre_diario <- 0;
Escribir Sin Saltar "Ingresa el valor de fondo de caja:";
Leer fondo_de_caja;
Repetir
Escribir Sin Saltar "Ingresa el valor de cantidad con la que paga:";
Leer cantidad_con_la_que_paga;
Escribir Sin Saltar "Ingresa el valor de monto de la venta:";
Leer monto_de_la_venta;
IVA <- monto_de_la_venta*0.16;
total_a_pagar <- monto_de_la_venta+IVA;
cambio <- cantidad_con_la_que_paga;
cierre_diario <- cierre_diario+total_a_pagar;
Escribir "Valor de IVA: ", IVA;
Escribir "Valor de cambio: ", cambio;
Escribir "Valor de total a pagar: ", total_a_pagar;
Escribir "";
Repetir
Escribir Sin Saltar "¿Deseas repetir el proceso? (S/N):";
Leer tecla_repetir;
Hasta Que tecla_repetir='s' O tecla_repetir='n' O tecla_repetir='S' O tecla_repetir='N'
Hasta Que tecla_repetir='n' O tecla_repetir='N'
cierre_diario <- cierre_diario+fondo_de_caja;
Escribir "Valor de cierre diario: ", cierre_diario;
FinProceso
cierre_diario <- 0;
Escribir Sin Saltar "Ingresa el valor de fondo de caja:";
Leer fondo_de_caja;
Repetir
Escribir Sin Saltar "Ingresa el valor de cantidad con la que paga:";
Leer cantidad_con_la_que_paga;
Escribir Sin Saltar "Ingresa el valor de monto de la venta:";
Leer monto_de_la_venta;
IVA <- monto_de_la_venta*0.16;
total_a_pagar <- monto_de_la_venta+IVA;
cambio <- cantidad_con_la_que_paga;
cierre_diario <- cierre_diario+total_a_pagar;
Escribir "Valor de IVA: ", IVA;
Escribir "Valor de cambio: ", cambio;
Escribir "Valor de total a pagar: ", total_a_pagar;
Escribir "";
Repetir
Escribir Sin Saltar "¿Deseas repetir el proceso? (S/N):";
Leer tecla_repetir;
Hasta Que tecla_repetir='s' O tecla_repetir='n' O tecla_repetir='S' O tecla_repetir='N'
Hasta Que tecla_repetir='n' O tecla_repetir='N'
cierre_diario <- cierre_diario+fondo_de_caja;
Escribir "Valor de cierre diario: ", cierre_diario;
FinProceso