このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1339338438/655
#  [1] 授業単元:C言語演習 
#  [2] 問題文: 
#  x1, x2, wa, sa の4つの引数とし、x1とx2との和と差を計算するwasa関数を作成せよ。 
#  そしてmain関数で2つの実数をキーボードから変数x1, x2に入力すると 
#  x1とx2との和と差を計算して表示するプログラムをwasa関数を利用して作成せよ。 
#  <実行例> 
#  please input x1: 5.3 
#  please input x2: 3.5 
#  和=8.8 差=1.8 
#  

和差(_x1,_x2,_和,_差) :-
        _和 is _x1 + _x2,
        _差 is _x1 - _x2.

'2つの実数をキーボードから変数x1, x2に入力するとx1とx2との和と差を計算して表示する' :-
        '2つの実数をキーボードから変数x1, x2に入力すると'(_x1,_x2),
        x1とx2との和と差を計算して(_x1,_x2,_和,_差),
        表示する(_x1,_x2,_和,_差).

'2つの実数をキーボードから変数x1, x2に入力すると'(_x1,_x2) :-
        write('2つの実数を入力します。\n'),
        数を得る(x1,_x1),
        数を得る(x2,_x2).

x1とx2との和と差を計算して(_x1,_x2,_和,_差) :-
        和差(_x1,_x2,_和,_差).

表示する(_x1,_x2,_和,_差) :-
        writef('x1=%t と x2=%t の\n和は %t,差は %t です。\n',[_和,_差]).