このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1258158172/118
#  [1] 授業単元:C言語 
#  [2] 問題文(含コード&リンク):http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10132.txt
# 
# コンピューターに関数randを使用して0〜99の整数を作らせ、
# キーボードより数を入力し、
# コンピューターの作った数の方が大きければ「もっと大きいです」と表示し、再入力
# コンピューターの作った数の方が小さければ「もっと小さいです」と表示し、再入力
# コンピューターの作った数と一致すれば「当たりです」と表示し、終了
# 入力時には、何回目のトライかも表示すること。
#
# 実行例
# コンピュータが作った0〜99の数を当てて下さい。
# 1回目です。いくつだと思いますか?70
# もっと小さいです
# 2回目です。いくつだと思いますか?60
# もっと大きいです
# 3回目です。いくつだと思いますか?63
# 当たりです

c132_118 :-
    コンピューターに関数randを使用して0〜99の整数を作らせ(_乱数),
    キーボードより数を入力し(1,_数),
    c132_118(1,_数,_乱数).

c132_118(N,_数,_数) :- !.
c132_118(N,_数,_乱数) :-
    コンピューターの作った数の方が大きければ「もっと大きいです」と表示し(_数,_乱数),
    N2 is N + 1,
    再入力(N2,_新しく入力された数),
    c132_118(N2,_新しく入力された数,_乱数).
c132_118(N,_数,_乱数) :-
    コンピューターの作った数の方が小さければ「もっと小さいです」と表示し(_数,_乱数),
    N2 is N + 1,
    再入力(N2,_新しく入力された数),
    c132_118(N2,_新しく入力された数,_乱数).
c132_118(N,_数,_乱数) :-
    コンピューターの作った数と一致すれば「当たりです」と表示し(_数,_乱数,_新しく入力された数),
    終了.

コンピューターに関数randを使用して0〜99の整数を作らせ(_乱数) :-
    _整数 is random mod 100. 

キーボードより数を入力し(N,_数) :-
    write_formatted('%t回目のトライです。いくつだと思いますか。整数(0~99)を入力してください : ',[N]),
    get_integer(_数).

コンピューターの作った数の方が大きければ「もっと大きいです」と表示し(_数,_乱数) :-
    _乱数 > _数,
    「もっと大きいです」と表示.

コンピューターの作った数の方が小さければ「もっと小さいです」と表示し(_数,_乱数) :- 
    _乱数 < _数,
    「もっと小さいです」と表示.

コンピューターの作った数と一致すれば「当たりです」と表示し(_数,_数) :-
    「当たりです」と表示. 

「もっと大きいです」と表示 :- write('もっと大きいです\n').
「もっと小さいです」と表示 :- write('もっと小さいです\n').
「当たりです」と表示 :- write('当たりです\n').

再入力(N,_新しく入力された数) :-
    キーボードより数を入力し(N,_新しく入力された数).

終了.