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

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

'該当する商品が見つかった場合には、その商品のコード、商品名、価格、販売数、販売額（価格×販売数）を実行結果のように表示する。該当する商品が見つからなかった場合のみ「見つかりませんでした」と表示して終了する'(_商品コード) :-
        findall([_商品コード,_商品名,_価格,_販売数,_販売額],(
                    商品(_商品コード,_商品名,_価格,_販売数),
                    _販売額 is _価格 * _販売数),
                _商品売上ならび),
        \+(_商品売上ならび=[]),
        write('商品コード　    商品名　    価格   販売数     販売額\n'),
        write('----------------------------------------------------------\n'),
        append(_,[[_商品コード,_商品名,_価格,_販売数,_販売額]|R],_商品売上ならび),
        writef('%8r %10r %8r %8r %10r\n',[_商品コード,_商品名,_価格,_販売数,_販売額]),
        R = [],!.
'該当する商品が見つかった場合には、その商品のコード、商品名、価格、販売数、販売額（価格×販売数）を実行結果のように表示する。該当する商品が見つからなかった場合のみ「見つかりませんでした」と表示して終了する'(_商品コード) :-
        write('見つかりませんでした\n').