このディレクトリの索引
#  出題場所 :: http://toro.2ch.net/test/read.cgi/tech/1381909900/422
#  [1] 授業単元:C言語 
#  [2] 問題文(含コード&リンク): 
#  問題(戻り値が無い場合の引数あり) 
#  円錐の半径rと高さhを入力し、円錐の体積を求めるプログラムを作りなさい。 
#  ただし、main関数で円錐の半径rと高さhの入力を行い、円錐の体積の計算と表示はtaisekiという 
#  関数で行うこと。 
#  また、円周率は3.14を使用すること。 
#   
#  ../test/read.cgi/tech/1381909900/422に続きます 
# 
# 

'円錐の半径rと高さhを入力し、円錐の体積を求めて表示するプログラムを作りなさい。 円周率は3.14を使用すること。' :-
        '円錐の半径rと高さhを入力し、'(_円錐の半径r,_円錐の高さh),
        _円周率 = 3.14,
        円錐の体積を求めて(_円錐の半径r,_円錐の高さh,_円周率,_円錐の体積),
        表示する(_円錐の半径r,_円錐の高さh,_円錐の体積).

'円錐の半径rと高さhを入力し、'(_円錐の半径r,_円錐の高さh) :-
        数を得る(円錐の半径r,_円錐の半径r),
        数を得る(円錐の高さh,_円錐の高さh).

円錐の体積を求めて(_円錐の半径r,_円錐の高さh,_円周率,_円錐の体積) :-
        _円錐の体積 is _円周率 * _円錐の半径r * _円錐の半径r * _円錐の高さh / 3.
表示する(_円錐の半径r,_円錐の高さh,_円錐の体積) :-
        writef('半径%t,高さ%tの円錐の体積は %t\n',[_円錐の半径r,_円錐の高さh,_円錐の体積]).