このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1339338438/547
#  [1] 授業単元:C言語 
#  [2] 問題文(含コード&リンク): 
#   
#  次の表のデータを構造体(shouhin)に格納して、商品コードを入力し、該当する商品が 
#  見つかった場合はその商品のコード、商品名、価格、販売数、販売額(価格×販売数)を 
#  実行結果のように表示するプログラムを作成せよ。なお該当商品が見つからなかった場合 
#  のみ「見つかりませんでした」と表示してプログラムを終了する。 
#   
#  商品コード  商品名      価格    販売数 
#  (code)    (name)      (price)  (number) 
#  fm1     フラッシュメモリ  1500   27 
#  hu2     ハブ        23000   8 
#  mo3     マウス       2560   12 
#   
#  [実行結果・例] 
#  商品コードを入力:hu2 
#  商品コード  商品名  価格  販売数  販売額 
#  -------------------------------------------------- 
#  hu2     ハブ   23000   8    184000 
#   


商品売上(fm1,フラッシュメモリ,1500,27). 
商品売上(hu2,ハブ,23000,8).
商品売上(mo3,マウス,2560,12). 

'商品コードを入力し、該当する商品が見つかった場合はその商品のコード、商品名、価格、販売数、販売額(価格×販売数)を実行結果のように表示する。なお該当商品が見つからなかった場合のみ「見つかりませんでした」と表示してプログラムを終了する。' :-
        商品コードを入力し(_商品コード),
        '該当する商品が見つかった場合はその商品のコード、商品名、価格、販売数、販売額(価格×販売数)を見つからなかった場合のみ「見つかりませんでした」と表示してプログラムを終了する。'(_商品コード).

商品コードを入力し(_商品コード) :-
        write('商品コード : '),
        get_line(_商品コード).

'該当する商品が見つかった場合はその商品のコード、商品名、価格、販売数、販売額(価格×販売数)を見つからなかった場合のみ「見つかりませんでした」と表示してプログラムを終了する。'(_商品コード) :-
        '該当する商品が見つかった場合はその商品のコード、商品名、価格、販売数、販売額(価格×販売数)を表示する'(_商品コード),
        商品コードを入力し(_商品コード_2),
        '該当する商品が見つかった場合はその商品のコード、商品名、価格、販売数、販売額(価格×販売数)を見つからなかった場合のみ「見つかりませんでした」と表示してプログラムを終了する。'(_商品コード_2).
'該当する商品が見つかった場合はその商品のコード、商品名、価格、販売数、販売額(価格×販売数)を見つからなかった場合のみ「見つかりませんでした」と表示してプログラムを終了する。'(_商品コード) :-
        '見つからなかった場合のみ「見つかりませんでした」と表示してプログラムを終了する。'(_商品コード),!.

'該当する商品が見つかった場合はその商品のコード、商品名、価格、販売数、販売額(価格×販売数)を表示する'(_商品コード) :-
        商品売上(_商品コード,_商品名,_価格,_販売数),
        _販売額 is _価格 * _販売数,
        writef('%10r %10r %10r %10r %10r\n',[_商品のコード,_商品名,_価格,_販売数,_販売額]).

'商品コードが見つからなかった場合のみ「見つかりませんでした」と表示してプログラムを終了する。'(_商品コード) :-
        \+(商品売上(_商品コード,_,_,_)),
        write('見つかりませんでした\n'),!.