このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1349527750/496
#  [1] c言語 
#  [2] 問題文:  
#  1. 円柱の半径と高さを入力すると、表面積と体積を計算するプログラムを作成せよ。 
#  入力される数値として、浮動小数点数値に対応すること。 
#  作業内容と考察もお願いします。 
#  

'円柱の半径と高さを入力すると、表面積と体積を計算する' :-
        '円柱の半径と高さを入力すると'(_円柱の半径,_円柱の高さ),
        '表面積と体積を計算する'(_円柱の半径,_円柱の高さ,_表面積,_体積),
        writef('半径 %t 高さ %t の円柱の\n表面積は %t\n体積は %t です\n',[_円柱の半径,_円柱の高さ,_表面積,_体積]).

'円柱の半径と高さを入力すると'(_円柱の半径,_円柱の高さ) :-
        数を得る(円柱の半径,_円柱の半径 > 0,_円柱の半径),
        数を得る(円柱の高さ,_円柱の高さ > 0,_円柱の高さ).

'円柱の半径と高さを入力すると、表面積と体積を計算する'(_円柱の半径,_円柱の高さ,_表面積,_体積) :-
        表面積を計算する(_円柱の半径,_円柱の高さ,_表面積),
        体積を計算する(_円柱の半径,_円柱の高さ,_体積).

表面積を計算する(_円柱の半径,_円柱の高さ,_表面積) :-
        _上下底の面積合計 is pi * _円柱の半径 * _円柱の半径,
        _側面の面積 is 2 * pi * _円柱の半径 * _円柱の高さ,
        _表面積 is _上下底の面積合計 + _側面の面積.

体積を計算する(_円柱の半径,_円柱の高さ,_体積) :-
        _体積 is pi * _円柱の半径 * _円柱の半径 * _円柱の高さ.