このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1286978599/843
#  [1] 授業単元:プログラミング演習  
#  [2] 問題文(含コード&リンク)  
#  問題3 
#  整数を1つ読み込んで、その値が、1 の時は 「 Go! 」 、 2または3の時、「 Slow ! 」 、 それ以外の時「 Stop! 」と表示するプログラムを 作成しなさい。 
#  

'整数を1つ読み込んで、その値が、1 の時は 「 Go! 」 、 2または3の時、「 Slow ! 」 、 それ以外の時「 Stop! 」と表示する' :-
        整数を1つ読み込んで(_整数),
        表示する文字列(_整数,_表示文字列),
        write(_表示文字列).

整数を1つ読み込んで(_整数) :-
        write('整数を入力してください : '),
        get_line(Line),
        整数を1つ読み込んでの診断(Line,_整数),!.
整数を1つ読み込んで(_整数) :-
        整数を1つ読み込んで(_整数).

整数を1つ読み込んでの診断(Line,_整数) :-
        atom_to_term(Line,_整数,_),
        integer(_整数),!.
整数を1つ読み込んでの診断(Line,_整数) :-
        write_formatted('入力された %t からは整数が得られませんでした。再入力をお願いします\n'),
        fail.

表示する文字列(1,'Go!').
表示する文字列(2,'Slow!').
表示する文字列(N,'Stop!') :-
        \+(N==1),
        \+(N==2).