Tutorial 2 of Artificial Intelligence



1.     Write program to display digits 1 to 9 also in reverse order using recursion to understand winding down.

predicates
     count(integer)
     go

clauses
     go:-
          write("Winding Down"),nl,
          count(1),
          write("1"),nl.
    
     count(9):-
          write("9"),nl,
          write("Now unwinding"),nl.
         
     count(N):-
          write(N),nl,
          A = N+1,
          count(A),
          write(A),nl.

  2.    Write a program to perform login operation using:
i.                   Recursion
ii.                 repeat predicate

i.using Recursion

predicates
     getip(symbol,symbol)
     login(symbol,symbol)
     go

clauses
     getip(U,P):-
          write("Enter Username : "),
          readln(U),
          write("Enter Password : "),
          readln(P),
          login(U,P).
    
     go:-
          getip(_,_),
          write("Login Succeeded"),nl.
    
     go:-
          write("Invalid Username or Password"),nl.
    
     login(ce,ce).
     login(ec,ec).
     login(ic,ic).


Repeat predicate

predicates
     getip(symbol,symbol)
     login(symbol,symbol)
     go
     repeat

clauses
     repeat:-
          go.
         
     getip(U,P):-
          write("Enter Username : "),
          readln(U),
          write("Enter Password : "),
          readln(P),
          login(U,P).
    
     go:-
          getip(_,_),
          write("Login Succeeded"),nl.
    
     go:-
          write("Invalid Username or Password"),nl,
          repeat.
    
     login(ce,ce).
     login(ec,ec).
     login(ic,ic).

3.     Write a program to perform  such that user is allowed to input   username and password maximum three times.

predicates
  getip(symbol,symbol)
  login(symbol,symbol)
  count(integer)
      
clauses
     count(3).
    
     count(N):-
          getip(_,_),
          write("Login succeeded"),nl.
    
     count(N):-
          write("Invalid Username and Password"),nl,
          A = N+1,
          count(A).
    
     getip(U,P):-
          write("Enter Username : "),
          readln(U),
          write("Enter Password : "),
          readln(P),
          login(U,P).
    
     login(ce,ce).
     login(ec,ec).
     login(ic,ic).


4.     Define predicate location(City,State). Write a program such that it displays all the locations except city “Delhi”. Using:
i.                   not predicate
ii.                 Combination of cut and fail.
predicates
   find
   checkcity(string)
   location(string,string)

clauses
   location("Jaypur","Rajsthan").
   location("Delhi","UP").
   location("Rajkot","Gujarat").
   location("Bhopal","MP").

   find:-
       writef("%-10%6","CITY","STATE"),nl,
       writef("----------------"),nl,
       fail.
  
   find:-
       location(C,S),
       checkcity(C),
       writef("%-10%5",C,S),nl,
       fail.    
     find.
   checkcity("Delhi"):-
       !,fail.
   checkcity(_).

Related Posts Plugin for WordPress, Blogger...

Engineering material

GTU IDP/ UDP PROJECT

GTU IDP/ UDP PROJECT

Patel free software download

  © Blogger templates The Professional Template by Ourblogtemplates.com 2008

Back to TOP