domains
name,address = symbol
phone = string
l = integer*
predicates
start
repeat
selectItem(integer)
studentData
subjectL(l)
searchByName(name)
searchByPhone(phone)
database
studentDB(name,address,phone,l)
goal
clearwindow,
makewindow(1,7,7,"Search Student Detail",0,0,25,80),
start.
clauses
repeat.
repeat:-
repeat.
start:-
repeat,
write("\n0.Exit"),
write("\n1.Enter student data"),
write("\n2.Search by Name"),
write("\n3.Search by Phone number"),
write("\n4.Show all Student Data"),
write("\nEnter your choice::"),
readint(Choice),
selectItem(Choice),
Choice=0.
selectItem(0).
selectItem(1):-
studentData,
fail.
selectItem(2):-
write("\nEnter your name::"),
readln(Name),
searchByName(Name),
fail.
selectItem(3):-
write("\nEnter the phone no::"),
readln(Phone),
searchByPhone(Phone),
fail.
selectItem(4):-
studentDB(Name,Address,Phone,Marks),
write(Name," ",Address," ",Phone," ",Marks),nl,
fail.
studentData:-
write("\nEnter the name of the student::"),
readln(Name),
write("\nEnter the address of the student::"),
readln(Address),
write("\nEnter the phone number of the student::"),
readln(Phone),
write("\nEnter the five subject marks of the student"),
subjectL(Marks),
assert(studentDB(Name,Address,Phone,Marks)).
subjectL(Marks):-
write("\nC ::"),
readint(C),
write("\nC++ ::"),
readint(CC),
write("\nVB ::"),
readint(VB),
write("\nJAVA ::"),
readint(Java),
write("\nPROLOG ::"),
readint(Prolog),
Marks=[C,CC,VB,Java,Prolog].
searchByName(Name1):-
studentDB(Name1,Address,Phone,Marks),
write("\nName::",Name1),
write("\nAddress::",Address),
write("\nPhone::",Phone),
write("\nMarks[C,C++,VB,Java,Prolog]::",Marks).
searchByPhone(Phone1):-
studentDB(Name,Address,Phone1,Marks),
write("\nName::",Name),
write("\nAddress::",Address),
write("\nPhone::",Phone1),
write("\nMarks[C,C++,VB,Java,Prolog]::",Marks).
Output :
+-----------------------------Search Student Detail----------------------------+
¦0.Exit ¦
¦1.Enter student data ¦
¦2.Search by Name ¦
¦3.Search by Phone number ¦
¦4.Show all Student Data ¦
¦Enter your choice::1 ¦
¦ ¦
¦Enter the name of the student::hiral ¦
¦ ¦
¦Enter the address of the student::10 b ,Panama society ¦
¦ ¦
¦Enter the phone number of the student::26640832 ¦
¦ ¦
¦Enter the five subject marks of the student ¦
¦C ::30 ¦
¦ ¦
¦C++ ::35 ¦
¦ ¦
¦VB ::40 ¦
¦ ¦
¦JAVA ::45 ¦
¦ ¦
¦PROLOG ::45
¦
¦0.Exit ¦
¦1.Enter student data ¦
¦2.Search by Name ¦
¦3.Search by Phone number ¦
¦4.Show all Student Data ¦
¦Enter your choice::4
¦
¦hiral 10 b ,Panama society 26640832 [30,35,40,45,45]
¦bright 1 nandan 26925740 [32,50,25,40,22]
¦nilima 21,b Amipura 26840131 [20,32,35,45,32]
¦nidhi 22,Ashapura 26861536 [32,33,41,31,36]
¦sweety 34,Radha 26637389 [22,15,23,22,20]
¦mikita 12,Prakruti 26637390 [20,30,40,45,25]
¦ ¦
¦0.Exit ¦
¦1.Enter student data ¦
¦2.Search by Name ¦
¦3.Search by Phone number ¦
¦4.Show all Student Data ¦
¦Enter your choice::2 ¦
¦ ¦
¦Enter your name::bright ¦
¦ ¦
¦Name::bright
¦Address::1 nandan
¦Phone::26925740
¦Marks[C,C++,VB,Java,Prolog]::[32,50,25,40,22]
¦0.Exit ¦
¦1.Enter student data ¦
¦2.Search by Name ¦
¦3.Search by Phone number ¦
¦4.Show all Student Data ¦
¦Enter your choice::3 ¦
¦ ¦
¦Enter the phone no::26640832 ¦
¦ ¦
¦Name::hiral
¦Address::10 b ,Panama society
¦Phone::26640832
¦Marks[C,C++,VB,Java,Prolog]::[30,35,40,45,45]