Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

If then, if then,.....,else. (Multiple if else) 1

Status
Not open for further replies.

Tenes

IS-IT--Management
Mar 26, 2010
6
GR
Hello,

I'm trying to create a menu with choices.
When the user will press 1 will call the option1.
When the user will press 2 will call the option2.
.
.
.
else will system halt.

When the user will press 1 will call the option1.

my code works for only 2 choices:
when I try to add more I still get the option2
I need to add at least 5 choices.

menou:-
write('Menou:\n'),
write('Press [1] to ....\n'),
write('Press [2] to ....\n'),
write('Enter choise:'),
read(Key),

Key=1->write('\n1.'),option1;
Key=2->write('\n2.'),option2;
write('\nWrong option.').

option1:-write('option1 selected').
option2:-write('option2 selected').

Thanks in advance.
 
Here is an example in SWI-Prolog :
Code:
test :-
	repeat,
	    writeln('1. action 1'),
	    writeln('2. action 2'),
	    writeln('3. bye'),
	    read(X),
	    travail(X).

travail(1) :-
	!,
	writeln('action 1'), fail.

travail(2) :-
	!,
	writeln('action 2'), fail.

travail(3) :-
	!,
	writeln('bye').

travail(_) :-
	writeln('wrong option'), fail.
Here is what you get :
5 ?- test.
1. action 1
2. action 2
3. bye
|: 1.
action 1
1. action 1
2. action 2
3. bye
|: 2.
action 2
1. action 1
2. action 2
3. bye
|: 4.
wrong option
1. action 1
2. action 2
3. bye
|: 3.
bye
true .
 
Thanks man you have done even more than answering only my question. :)
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top