-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Suponga que tiene una tienda y desea registrar sus ventas por medio de una computadora. Lea por cada cliente:
a) El monto de la venta.
b) Calcule e imprima el IVA.
c) Calcule e imprima el total a pagar.
d) Lea la cantidad con que paga el cliente.
e) Calcule e imprime el cambio.
Al final del día deberá imprimir la cantidad de dinero que debe haber en la caja.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Proceso RegistroDeVentasEnUnaTienda
cantidad_de_dinero <- 0;
Repetir
Escribir Sin Saltar "Ingresa el valor de cantidad con que paga:";
Leer cantidad_con_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_que_paga-total_a_pagar;
cantidad_de_dinero <- cantidad_de_dinero+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'
Escribir "Valor de cantidad de dinero: ", cantidad_de_dinero;
FinProceso
cantidad_de_dinero <- 0;
Repetir
Escribir Sin Saltar "Ingresa el valor de cantidad con que paga:";
Leer cantidad_con_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_que_paga-total_a_pagar;
cantidad_de_dinero <- cantidad_de_dinero+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'
Escribir "Valor de cantidad de dinero: ", cantidad_de_dinero;
FinProceso