このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1294061094/648
#  [1] 授業単元:プログラミング演習  
#  [2] 問題文(含コード&リンク) 球の体積を計算するプログラムを作成せよ。 
#  関数の定義は以下の順序で行うこと。(プロトタイプ宣言が必要となります)  
#  main()関数  
#  下記の関数を組み合わせて呼び出し、直径15のときの球の体積を求め、その値を表示してください。  
#  ただし、main()関数内では、変数を一切使うことなく関数の呼び出しを行ってください。  
#    
#  体積の計算用として、下記の2つの関数を定義してください。  
#  1. radius関数:直径を引数として受け取り、半径を返却値として返す  
#  2. volume関数:半径を引数として受け取り、球の体積を返却値として返す  
#  ただし、引数及び返却値の型は、すべて double 型とします。  
#  [3.1] OS: unix  
#   [3.2] コンパイラ名とバージョン: gcc  
#   [3.3] 言語: C  
#  [4] 期限:1月19日  
#  [5] その他の制限: なし  
#  よろしくお願いします。 
# 
# 

球の体積を計算する(_直径,_球の体積) :-
        直径を引数として受け取り、半径を返却値として返す(_直径,_半径),
        半径を引数として受け取り、球の体積を返却値として返す(_半径,_球の体積).

直径を引数として受け取り、半径を返却値として返す(_直径,_半径) :-
        number(_直径),
        _半径 is _直径 / 2,!.

半径を引数として受け取り、球の体積を返却値として返す(_半径,_球の体積) :-
        _球の体積 is (4 * pi * _半径 ^ 3) / 3.