// 0 = Esta Libre
// 1 = Esta ocupado

Funcion IndexLugar<-LugarVacio(Array,cFila,cAsiento)

	//Para IndiceFila<-0 Hasta cFila-1 Con Paso 1 Hacer
	// ¿Esto funcionara aca?
	// En caso de funcionar, Esto retorna si el esta indice libre
	Definir IndexLugar Como real

	Si Array(cFila,cAsiento)=0 entonces
		IndexLugar=0
	SiNo
		IndexLugar=1
	fin si

	//Fin Para

Fin Funcion

Funcion ListarColectivo(Array,cFila,cAsiento)
	Definir Fila como Entero
	Definir Asiento como Entero
	Definir Estado Como Caracter

	Para Fila<-0 Hasta cFila-1 Con Paso 1 Hacer
		Para Asiento<-0 Hasta cAsiento-1 Con Paso 1 Hacer

			Si LugarVacio(Array,Fila,Asiento)=0 Entonces
				Estado="Libre"
			SiNo
				Estado="Ocupado"
			FinSi

			// Sumo +1 a ambas variable para que empiece desde 1 la fila, queda mas bonito que de fila 0 xd
			Escribir "~ Fila : ", (Fila+1) , " ~ Asiento: " , (Asiento+1) , " ~ Estado:  " , Estado

		Fin Para
	Fin Para

Fin Funcion

Funcion LimpiarPasajeros(Array,cFila,cAsiento)
	Definir Fila como Entero
	Definir Asiento como Entero
	Definir Estado Como Caracter

	Para Fila<-0 Hasta cFila-1 Con Paso 1 Hacer
		Para Asiento<-0 Hasta cAsiento-1 Con Paso 1 Hacer
			Array(Fila,Asiento)=0
		Fin Para
	Fin Para

fin funcion

Algoritmo Colectivo

	// Limite de Asientos y Filas.
	Definir c_Fila como entero
	Definir c_Asiento como entero
	c_Fila=20
	c_Asiento=3

	// Matriz del colectivo
	Definir c_Pasajeros Como Entero
	Dimension c_Pasajeros[c_Fila,c_Asiento]

	// Sin esta porqueria No funciona el programa asi que meh
	LimpiarPasajeros(c_Pasajeros,c_Fila,c_Asiento)

	// Variable Para Leer las acciones en bucle
	// Como Real Por si algun gracioso
	// quiere poner un 0 y romper el programa
	Definir ColectivoAccion como Real

	// Usamos estas 2 variables para tomar el asiento y fila
	Definir u_Fila como Real
	Definir u_Asiento como Real

	// Bucle infinito wii y su Variable de ejecuccion
	Definir ColectivoActivo como Logico
	ColectivoActivo=Verdadero

	Mientras ColectivoActivo Hacer
		// Le damos valor a la variable
		Escribir "Ejecutar Accion."
		Leer ColectivoAccion

		Segun ColectivoAccion Hacer

			1:  // Listamos en pantalla segun asiento y fila
				ListarColectivo(c_Pasajeros,c_Fila,c_Asiento)

			2:
				Escribir "Ingrese la Fila que le gustaria ocupar."
				leer u_Fila
				// Se preguntan porque hago el -1 aca ? Bueno esto es una mierda de lenguaje y punto.
				u_Fila = u_Fila-1

				Mientras u_Fila <0 Hacer
					Escribir  "Ingresar una Fila Valida."
					leer u_Fila
				Fin Mientras

				Escribir  "Ingrese el asiento que le gustaria ocupar."
				leer u_Asiento
				// Aca lo mismo que arriba.
				u_Asiento=u_Asiento-1

				Mientras u_Asiento <0 Hacer
					Escribir  "Ingresar un Asiento valido."
					leer u_Asiento
				Fin Mientras

				Si LugarVacio(c_Pasajeros,u_Fila,u_Asiento)=0 Entonces
					Escribir u_Fila,u_Asiento
					// Como Esta Libre el lugar, Ocupamos el que ponemos.
					c_Pasajeros(u_Fila,u_Asiento)=1
				SiNo
					Escribir "Lugar Ocupado, Seleccionar otro"
				FinSi

			3:
				ColectivoActivo=Falso

			7:
				Escribir "Accion 1; Imprime en pantalla la lista de asientos y si estan o no ocupados."
				Escribir "Accion 2; El usuario Ingresa Asiento y lugar en caso de estar libre, lo ocupa, si no muestra un mensaje."
				Escribir "Accion 3; Cierra el programa"

			De Otro Modo:
				Escribir "Presionar 7 para obtener ayuda."

		Fin Segun

	Fin Mientras

FinAlgoritmo