PASSWORD EN ELENGUAJE PASCAL

CASTILLO SUASTE ISRAEL

SEC:2IM22

TECNOLOGIA DE LA INFORMATICA

PASSWORD (LENGUAJE PASCAL)

Para ingresar desde el menú iras a

Menú inicio

Todos los programas

Seleccionas el programa pascal

En donde tecleara lo siguiente

procedure menu_login;
var
usuario1:login;
opcion,usu:char;
begin
clrscr;
textcolor(2);
writeln(' --------------------------------------');
writeln(' SISTEMA DE IDENTIFICACION INDALUM');
writeln(' ---------------------------------------');
textcolor(7);
writeln(' Ingrese opcion ');
writeln(' A)Usuario');
writeln(' B)Visita');
writeln(' C)Salir');
repeat
opcion:=readkey;
until opcion in ['A','a','B','b','c','C'];
case opcion of

Al ingresar a la opción A uno deba escribir nombre de usuario y contraseña si existe pasa al menú principal si no existe te diga que no existe y volver al menú principal
en visita te deja entrar libremente al programa y aparte puedas crear un usuario y salir