How do I implement Toastr JS?

on
4

Prolog Program to Find The Greatest Variable Among The Three Variables

on

Prolog Program to Find The Greatest Variable Among The Three Variables.

Find The Greatest Variable Among The Three Variables

Program:

max(P,Q,R):-P>Q,P>R,write('Larger number is '),write(P).
max(P,Q,R):-P<Q,Q>R,write('Larger number is '),write(Q).
max(P,Q,R):-R>Q,P<R,write('Larger number is '),write(R).
max(P,Q,R):-P=Q,P<R,write('Larger number is '),write(R).
max(P,Q,R):-P<Q,P=R,write('Larger number is '),write(Q).
max(P,Q,R):-Q=R,P>Q,write('Larger number is '),write(P).
max(P,Q,R):-P=Q,P>R,write('Larger numbers are  '),write(P),write(' and '),write(Q).
max(P,Q,R):-P=R,Q<R,write('Larger numbers are  '),write(P),write(' and '),write(R).
max(P,Q,R):-Q=R,P<R,write('Larger numbers are  '),write(R),write(' and '),write(Q).
max(P,Q,R):-P=Q,P=R,write('All numbers are equal ').

Output:

?- max(1,1,1).
All numbers are equal 
true.

?- max(3,7,2).
Larger number is 7
true.

?- max(3,7,7).
Larger numbers are  7 and 7
true .

Prolog Programs:

Comments

Post a Comment