このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1349527750/258
#  [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 
#   
#  

main :-
        'int 型の半径をキーボードから受け取る'(_半径),
        円周と面積の値を画面表示する(_円周,_円の面積).

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

円周と面積の値を画面表示する(_半径,_円周,_円の面積) :-
        円周を求める(_半径,_円周),
        円の面積を求める(_半径,_円の面積),
        writef('円周: %t\n面積: %t です。\n',[_円周,_円の面積]).

円周を求める(_半径,_円周) :-
        _直径 is _半径 * 2,
        _円周 is _直径 * pi.

円の面積を求める(_半径,_円の面積) :-
        _円の面積 is _半径 * _半径 * pi.


%  c160_258_1