Login + Menú

Algoritmo LoginUsuario
	//Definimos variables a usar
	Definir Pass, User como Caracter;
	Definir Seleccion Como Entero;	
	Auxiliar <- 0;
	
		
	Mientras Auxiliar == 0 O Auxiliar == 2 Hacer
		
		Escribir "";
		Escribir "+--------------------------------+";
		Escribir "   Sistema Selección Algoritmos"   ;
		Escribir "             EPO 113              ";
		Escribir "+--------------------------------+";
		Escribir "";
		Escribir "Usuario: " Sin Saltar; //Sin saltar pone de manera continua al momento de solicitar información
		Leer User;
		Escribir "Contraseña: " Sin Saltar; //Sin saltar pone de manera continua al momento de solicitar información
		Leer Pass;
		//Usamos PARA, identificando si existe mi usuario y Password en mi Dimension
		
		Si User="abc" Y Pass="123" Entonces
			//Binvenido
			Auxiliar <- 1;
			Mientras Auxiliar == 1 Hacer
			
			Limpiar Pantalla;
			Escribir "+--------------------------------+";
			Escribir "   Sistema Selección Algoritmos"   ;
			Escribir "             EPO 113              ";
			Escribir "";
			Escribir " Bienvenido: ", User ," ";
			Escribir "";
			Escribir "			Menú Principal           ";
			Escribir "";
			Escribir "   1.- Algoritmo 1";
			Escribir "   2.- Algoritmo 2";
			Escribir "   3.- Algoritmo 3";
			Escribir "";
			Escribir "   0.- Salir";
			Escribir "+--------------------------------+";
			Escribir "Selecciona una Opción" Sin Saltar;
			Leer Seleccion;
			Segun Seleccion Hacer
				1:
					Escribir "Opcion 1";
					
					//Agregamos estas lineas para regresar al menu de opciones
					Auxiliar <- 1;
					Escribir "Preciona Una tecla para regresar al menú"
					Esperar Tecla;
				2:
					Escribir "Opcion 2";
					
					//Agregamos estas lineas para regresar al menu de opciones
					Auxiliar <- 1;
					Escribir "Preciona Una tecla para regresar al menú"
					Esperar Tecla;
				3:
					Escribir "Opcion 3";
					
					//Agregamos estas lineas para regresar al menu de opciones
					Auxiliar <- 1;
					Escribir "Preciona Una tecla para regresar al menú"
					Esperar Tecla;
				0:
					Escribir Sin Saltar " Cerrando Sesión de, ", User, " ";
					Para Incremento <- 1 Hasta 3 Con Paso 1 Hacer
						Escribir Sin Saltar Incremento, " ";
						Esperar 1 Segundos
					FinPara
					Limpiar Pantalla;
					Auxiliar <- 2;
				De Otro Modo:
					Escribir "Opción no valida"
			FinSegun
		FinMientras
		SiNo
			//Usuario Incorrecto 
			Escribir "";
			Escribir "Usuario o Contraseña Incorrecta"
			Escribir "Intenta de nuevo"
			Escribir "";
			//Usamos PARA, creando una simulación de conteo
			Para Incremento <- 1 Hasta 3 Con Paso 1 Hacer
				Escribir Incremento Sin Saltar"  ";
				Esperar 1 Segundos
			FinPara
			Limpiar Pantalla
		FinSi
	FinMientras
FinAlgoritmo