To find simple interest - Artificial Intelligence Lab file

AIM: To find simple interest

domains

n=integer.

predicates

si(n,n,n).

clauses

si(A,B,C):-

D=(A*B*C)/100.

write(“Simple Interest=”,D,”\n”).

Output: