Beezle
Elite Member
Number of posts: 547
Age: 23
Mood: 
Points: 253
Registration date: 2008-03-02
Character sheet
Weapon: Chakrams
Class:  Ninja
HP:
    (50/50)
 | | Subject: Find the maximum of three numbers using Prolog Fri Oct 29, 2010 7:16 pm | |
| This code can be modified to find the maximum of any number of inputs. | Code: | % Author: Claudia-Ann Gray
% Date: 10/29/2010
max:-write('Enter first number'),nl, read(Num1),nl,write('Enter second number'),
nl,read(Num2),nl,write('Enter third number'),nl,read(Num3),
find_max(Num1,Num2,Num3).
find_max(Num1,Num2,Num3):-(Num1>Num2,Num1>Num3->nl,write(Num1),write(' is the biggest'),!);
(Num2>Num3->nl,write(Num2),write(' is the biggest'),!);nl,write(Num3),
write(' is the biggest'),!. |
|
|
