sala cine

Proceso EjemploParcial
	// Escribir un programa que permita la reservación de asientos en un teatro. El mismo posee
	// una capacidad de 1200 lugares repartidos en 40 filas de 30 asientos cada una. Cada asiento se
	// identifica con numero y fila (por ejemplo, asiento 3 fila 4). Una vez reservado el asiento, no estará
	// disponible a menos que se cancele la reservación. El programa debe registrar el estdo de cada asiento
	// y presentar al usuario un menú con las siguientes opciones:
	// 1) Reservar asientos  (2 puntos)
	// 2) Cancelar reservación (2 puntos)
	// 3) Listado de asientos disponibles (2 puntos)
	// 4) Listado de asientos reservados (2 puntos)
	// 5) Salir
	// Los dos últimos puntos son definición de variables , opción salir, implementación del menú
	// y manejo de errores
	// asiento disponible = 0
	// asiento reservado = 1
	// asientos = [[1, 0, 1...],[0, 0, 1...]]
	Definir opcion, sala, fila, asiento Como Entero
	Definir salida Como Logico

	Dimension sala[40,30]
	salida <- Falso

	// Cargo todos los asientos como disponibles
	fila<-0
	asiento<-0

	Para fila<-0 Hasta 40 Con Paso 1 Hacer
		Para asiento<-0 Hasta 30 Con Paso 1 Hacer
			sala[fila,asiento] <- 0
		FinPara
	FinPara


	Mientras salida = Falso Hacer

		// -------------------------
		Escribir "TEATRO EL PARAISO"
		Escribir "-----------------"
		Escribir "Venta de localidades"
		Escribir "1. Reservar asientos"
		Escribir "2. Cancelar reservación"
		Escribir "3. Listado de asientos disponibles"
		Escribir "4. Listado de asientos reservados"
		Escribir "5. Salir"
		Escribir "Seleccione una opción: "
		Leer opcion


		Segun opcion Hacer
			1:


			2:



			3:
				Para fila<-0 Hasta 40 Con Paso 1 Hacer
					Para asiento<-0 Hasta 30 Con Paso 1 Hacer
						Si sala[fila,asiento] = 0
							Escribir "Fila: ",fila, " - Asiento: ", asiento
						FinSi
					FinPara
				FinPara


			4:
				Para fila<-0 Hasta 40 Con Paso 1 Hacer
					Para asiento<-0 Hasta 30 Con Paso 1 Hacer
						Si sala[fila,asiento] = 1
							Escribir "Fila: ",fila, " - Asiento: ", asiento
						FinSi
					FinPara
				FinPara

			5:
				Escribir "Gracias por usar este programa..."
				salida <- Verdadero
			De otro modo:
				Escribir "Opción no válida"
		FinSegun


	FinMientras




FinProceso