このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1339338438/546
#  [1] 授業単元:C言語 
#  [2] 問題文(含コード&リンク): 
#   
#  次の1〜4の仕様を満たすプログラムを作成しなさい。 
#  1:main 関数において int 型の半径 r をキーボードから受け取る 
#  2:円周( ring )を求める enshu 関数に r を値呼び出しで渡して円周を計算し、 
#  その値を main 関数に return する 
#  3:円の面積( area )を求める menseki 関数に r を参照呼出しで渡して面積を計算し、 
#  その値を main 関数に return する 
#  4:main 関数で return された円周と面積の値を下記の実行結果のように画面表示する 
#   
#  [実行結果・例] 
#  半径rを入力:5 
#  円周:31.400000 
#  面積:78.500000 
#   
#  

'int 型の半径 r をキーボードから受け取る'(_r) :-
        整数を得る(半径,_r).

'円周を求める。'(_r,_円周) :-
        _円周 is 2 * pi * _r.

'円の面積を求める。'(_r,_円の面積) :-
        _円の面積 is _r * _r * pi.

main :-
        'int 型の半径 r をキーボードから受け取る'(_r),
        '円周を求める。'(_r,_円周),
        '円の面積を求める。'(_r,_円の面積),
        writef('円周: %10r\n面積: %10r\n',[_円周,_円の面積]).