このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1349527750/366
#  [1] 授業単元:C言語 
#  [2] 問題文(含コード&リンク):キーボードから球の半径rを実数入力し(doubleで変数宣言)、半径rの円周、表面積、体積を計算、表示(出力は%15.5f)するプログラムを作成する。 
#  

'キーボードから球の半径を実数入力し、半径rの円の円周、球の表面積、球の体積を計算、表示(出力は%15.5f)する' :-
        'キーボードから球の半径rを実数入力し'(_半径r),
        '半径rの円の円周、球の表面積、球の体積を計算'(_半径r,_円の円周,_球の表面積,_球の体積),
        '表示(出力は%15.5f)する'(_半径r,_円の円周,_球の表面積,_球の体積).

'キーボードから球の半径rを実数入力し'(_半径r) :-
        実数を得る('球の半径r',_半径r).

'半径rの円周、球の表面積、球の体積を計算'(_半径r,_円の円周,_球の表面積,_球の体積) :-
        円周を計算(_半径r,_円の円周),
        球の円周を計算(_半径r,_球の表面積),
        球の体積を計算(_半径r,_球の体積).

円周を計算(_球の半径r,_球の円周) :-
        _球の円周 is 2 * pi * _球の半径r.

球の表面積を計算(_球の半径r,_球の表面積) :-
        _球の表面積 is 4 * pi * _球の半径r.

球の体積を計算(_球の半径r,_球の体積) :-
        _球の体積 is ( 4 * pi * (_球の半径r * _球の半径r * _球の半径r)) / 3.

'表示(出力は%15.5f)する'(_球の半径r,_円周,_球の表面積,_球の体積) :-
        writef('半径 %t の円周は ',[_球の半径r]),
        format('~5, 表面積は ~5, 体積は ~5 です。\n',[_円周,_球の表面積,_球の体積]).