Prolog Lab 5

Subject: Prolog Lab 5 Tue Oct 19, 2010 7:45 pm

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

accept:-write('Enter Name: '), nl, read(Name), write(Name).

atom_length(Arg1, Arg2). %returns length of Arg1 into Arg2

integer(Arg). %tests if Arg is integer returns true or false

Arg1 mod Arg2 %mod returns the remainder of deviding Arg1 by Arg2

Subject: Re: Prolog Lab 5 Tue Oct 19, 2010 7:51 pm

% Author: Kevin Stewart
% Date: 10/5/2010

calc_salary :- write('Enter Salary: '), nl, read(Sal), calc_tax(Sal, Tax), disp_net(Sal, Tax).

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

disp_net(Sal, Tax):- Net is Sal - Tax, write('Net Salary: '), write(Net).

Subject: Re: Prolog Lab 5 Tue Oct 19, 2010 7:54 pm

Oh yh! I didn't write that in the editor because it was on the paper.

» Prolog Lab 2
» prolog lab 3
» Prolog Lab 1
» Prolog Exercise 1
» Prolog Exercise 3