このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1276810079/405
#  摂氏から華氏,及び華氏から摂氏に換算する関数を作成して、 
#  main関数でキーボードから温度とその値が摂氏であるか華氏であるかを 
#  入力し,摂氏ならば華氏に,華氏ならば摂氏に換算した値を小数点以下1桁までで出力するプログラムを作成しなさい。 
#  なお出力は main関数で行うこと。 
# 

摂氏・華氏変換 :-
        write('温度を入力してください : '),
        get_line(Line),
        atom_to_term(Line,_温度,_),
        write('摂氏または華氏と入力してください : '),
        get_line(_摂氏または華氏),
        摂氏・華氏温度変換(_摂氏または華氏,_温度,_摂氏または華氏の二,_温度の二),
        write_formatted('入力された%t%t度は%t%3.1f度です,[_摂氏または華氏,_温度,_摂氏または華氏の二,_温度の二).

摂氏・華氏温度変換(摂氏,_温度,華氏,_華氏) :- 摂氏・華氏変換計算(_温度,_華氏).
摂氏・華氏温度変換(華氏,_温度,摂氏,_摂氏) :- 摂氏・華氏変換計算(_摂氏,_温度).

摂氏・華氏変換計算(_摂氏,_華氏) :- \+(var(_摂氏)),_華氏 is 9 * _摂氏 / 5 + 32,!.
摂氏・華氏変換計算(_摂氏,_華氏) :- \+(var(_華氏)),_摂氏 is 5 * (_華氏 - 32) / 9,!.