//De David Guam�n
Proceso progreso3
Definir option Como Entero;
Definir numeroBoletosAComprar, numeroClientes, numeroBoletosAUtilizar, sala,
boletosRestantes, peliculaEscogida, cont Como Entero;
Definir nombreDelCliente, NombreDeLaPelicula, guardarSala, guardarPelicula,
guardarCantidad, guardarPrecio Como Caracter;
Definir precio, total, subTotal, IVA Como Real;
Repetir
Escribir "1. Compra de boletos";
Escribir "2. Salir";
Leer option;
Segun option Hacer
caso 1:
cont=1;
total=0;
subTotal=0;
IVA=0;
guardarPelicula="";
guardarSala="";
guardarCantidad="";
guardarPrecio="";
Repetir
Escribir "Ingrese el n�mero de clientes";
Leer numeroClientes;
Mientras Que numeroClientes<=0
Mientras cont<=numeroClientes Hacer
Escribir "Datos del cliente ", cont;
Repetir
Escribir "Ingrese el nombre del cliente";
Leer nombreDelCliente;
Mientras Que nombreDelCliente=""
subTotal=0;
Repetir
Escribir "Ingrese el n�mero de boletos";
Leer numeroBoletosAComprar;
Mientras Que numeroBoletosAComprar<=0;
guardarPelicula="";
guardarSala="";
guardarCantidad="";
guardarPrecio="";
boletosRestantes=numeroBoletosAComprar;
Mientras (boletosRestantes<>0)
Repetir
Escribir "Ingrese la cantidad de boletos
a utilizar";
Leer numeroBoletosAUtilizar;
Mientras Que numeroBoletosAUtilizar<=0 O
numeroBoletosAUtilizar>boletosRestantes;
guardarCantidad="| "+
ConvertirATexto(numeroBoletosAUtilizar) + " | " + guardarCantidad;
Repetir
Escribir "Ingrese el precio";
Leer precio;
Mientras Que precio<=0;
guardarPrecio="| " + ConvertirATexto(precio) +
" | " + guardarPrecio;
subTotal=subTotal+
(numeroBoletosAUtilizar*precio);
Repetir
Escribir "Escoja la pel�cula";
Escribir "1. Spiderman | 2. Scream | 3.
Matrix (colocar solo un n�mero del 1 al 3)";
Leer peliculaEscogida;
Mientras Que peliculaEscogida<1 o
peliculaEscogida>3
Si peliculaEscogida==1 Entonces
guardarPelicula="| Spiderman | " +
guardarPelicula;
SiNo
Si peliculaEscogida==2 Entonces
guardarPelicula="| Scream | " +
guardarPelicula;
SiNo
Si peliculaEscogida==3 Entonces
guardarPelicula="| Matrix | "
+ guardarPelicula;
FinSi
FinSi
FinSi
Repetir
Escribir "Escoja la sala";
Escribir "1. 401 | 2. 402 | 3. 403
(colocar solo un n�mero del 1 al 3)";
Leer sala;
Mientras Que sala<1 o sala>3
Si sala==1 Entonces
guardarSala= "| 401 | " + guardarSala;
SiNo
Si sala == 2 Entonces
guardarSala= "| 402 | " +
guardarSala;
SiNo
Si sala == 3 Entonces
guardarSala= "| 403 | " +
guardarSala;
FinSi
FinSi
FinSi
boletosRestantes=boletosRestantes-
numeroBoletosAUtilizar;
FinMientras
IVA=subTotal*0.12;
total=subTotal+IVA;
cont=cont+1;
Fin Mientras
Escribir "Factura ", nombreDelCliente;
Escribir "Pel�cula: ", guardarPelicula;
Escribir "Sala: ", guardarSala;
Escribir "Precio: ", guardarPrecio;
Escribir "Cantidad: ", guardarCantidad;
Escribir "Subtotal: ", subTotal;
Escribir "IVA: ", IVA;
Escribir "Total:", total;
Esperar Tecla;
Esperar 2 Segundos;
Borrar Pantalla;
caso 2:
Escribir "Fin del programa";
Esperar Tecla;
Esperar 2 Segundos;
Borrar Pantalla;
De Otro Modo:
Escribir "Error";
Escribir "Opci�n inv�lida";
Esperar Tecla;
Esperar 2 Segundos;
Borrar Pantalla;
Fin Segun
Hasta Que (option=1 o option=2)
FinProceso