Question

Write the following facts/clause in prolog:

1) John is taking Comp42 with Professor Mora

2) If sky is blue, everyone likes it.

3) If Joe final score is 90 or above in COMP42, Joe has an “A” in COMP42.

Answer 1

domain
student_name=symbol.
subject=symbol.
prof_name=symbol.
marks=integer.
color=symbol.
grade=symbol.
person=symbol.
predicates
std_sub_Prof(student_name,subject,prof_name).
std_result(student_name,subject,marks,grade).
sky(color).
like(person).
clauses
std_sub_Prof(john,Comp42,Mora).
like(X):-sky(blue).
std_result(joe,Comp42,X,A):-if X>=90.

if you still have any Problem regarding this question please comment and if you like my code please appreciate me by thumbs up thank you.........

Answer 2

1) John is taking Comp42 with Professor Mora .

subject ( John , Comp42 ) , Professor ( Mora , Comp42 ) .

The above clause can be read as John opted subject Comp42 and Mora is the professor of the subject Comp42.

2) If sky is blue, everyone likes it.

likes ( X , sky ) :- sky ( blue ) .

The above clause can be read as X likes sky if the sky is blue. Here, X is a variable and it can take any value if the condition holds true.

3) If Joe final score is 90 or above in COMP42, Joe has an “A” in COMP42.

grade(Score,Grade) :- Score >= 90, Grade = 'A'.

grade(Score,Grade) :- Score >= 80, Score < 90, Grade = 'B'.

grade(Score,Grade) :- Score >= 70, Score < 80, Grade = 'C'.

grade(Score,Grade) :- Score >= 60 , Score < 70, Grade = 'D'.

grade(Score,Grade) :- Score >= 40 , Score < 60, Grade = 'E'.

grade(Score,Grade) :- Score < 40, Grade = 'F'.

marks(Joe,Comp42,Score) : grade(Score,Grade) ,

format('~w -> ~w\n', [Score, Grade]). // format of output

Ex :- The usage of this clause is shown below :

?- marks(Joe,Comp42,60).

60-> D

Yes

Here we first defined clauses for grade based on score i.e., grade(Score,Grade) where Score is given as input and grade is yielded.

marks(Joe,Comp42,Score) is a clause in which grade of a student is yielded as output based on the score provided. This cluase internally calls the grade(Score,Grade) clause where Grade is a variable. It's value is displayed on successfull execution of query.