A veces, cuando desarrollamos algún sistema experto necesitamos restringir el acceso al sistema. A continuación presentaré una forma sencilla de controlar el acceso con contraseña.
% Base de datos de usuarios
user('Admin','qwerty').
% sistema
misistema :- write('acceso concedido!!'),nl.
%control de acceso
login :- write('Usuario:'), nl, read(Name), write('Pasdword'), nl, read(Password), nl, verifica( Usuario, Password).
verifica( Usuario,Password) :- user( Usuario, Password), misistema.