Introduction to If Statements in Prolog

Subject: Introduction to If Statements in Prolog Tue Oct 19, 2010 7:47 pm

Question:
Calculate net salary using gross salary and tax.

% Author: Claudia-Ann Gray 0702011
% Date: 10/5/2010

net_sal:-write('Enter salary: '), nl, read(Sal), calc_tax(Sal, Tax), calc_net(Sal, Tax).

calc_tax(Sal, Tax):-Sal > 1, Sal < 5001 -> Tax is Sal * 0.15;
Sal > 5000, Sal < 10001 -> Tax is Sal * 0.18;
Sal > 10000, Sal < 20001 -> Tax is Sal * 0.20;
Sal > 20000 -> Tax is Sal * 0.25;
Tax is 0.

calc_net(Sal, Tax):-Net is Sal - Tax, nl, write('Net salary is '), write(Net).

» Introduction to Function Call and Parameter Passing in Prolog
» Prolog Lab 2
» prolog lab 3
» Prolog Lab 1
» Prolog Lab 5