このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1349527750/261
#  [1] 授業単元:プログラミング演習 
#  [2] 問題文: 
#  円の半径rを受け取ると、rからこの半径の円の周囲の長さlと面積sを計算するcircle関数を作成。 
#  そしてmain関数でrを入力すると、circle関数でlとsが計算され、その結果をmain関数で出力するプログラムを作成しなさい。 
#  

'円の半径rを受け取ると、rからこの半径の円の周囲の長さlと面積sを計算するcircle関数を作成。そしてmain関数でrを入力すると、circle関数でlとsが計算され、その結果をmain関数で出力するプログラムを作成しなさい。' :-
        main.

main :-
        rを入力すると(_r),
        'circle述語でlとsが計算され、その結果を出力する'(_r).

rを入力すると(_r) :-
        数を得る(半径,_r).

'circle述語でlとsが計算され、その結果を出力する'(_r) :-
        circle(_r,_l,_s),
        writef('r:%t,l:%t,s:%t\n',[_r,_l,_s]).

circle(_r,_l,_s) :-
        _l is 2 * _r * pi,
        _s is _r * _r * pi.