このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1301553333/784
#  わかりました 
#   
#  [2] 問題文:キーボードから入力された商品名の価格を出力するプログラム。 
#       入力された商品名がない場合は、「そのような商品はありません」と出力する。 
#  
%  改行で入力が終了する get_line/1 が定義済みだとする。
%  もし定義できない場合は read/1 に書き換える。
%  この場合は入力をピリオドで終了させる必要がある。

キーボードから入力された商品名の価格を出力する。入力された商品名がない場合は、「そのような商品はありません」と出力する。 :-
        キーボードから入力された商品名(_商品名),
        価格を出力する。入力された商品名がない場合は、「そのような商品はありません」と出力する(_商品名).

キーボードから入力された商品名(_商品名) :-
        get_line(_商品名).

価格を出力する。入力された商品名がない場合は、「そのような商品はありません」と出力する。(_商品名) :-
        価格(_商品名,_価格),
        writef('商品名=%t, 価格=%t\n',[_商品名,_価格]).

価格を出力する。入力された商品名がない場合は、「そのような商品はありません」と出力する。(_商品名) :-
        入力された商品名がない場合は(_商品名),
        「そのような商品はありません」と出力する.

「そのような商品はありません」と出力する :-
        write('そのような商品はありません\n').

入力された商品名がない場合は(_商品名) :-
        \+(価格(_商品名,_)).

価格(みたらしだんご,230).
価格(ねりきり,350).