このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1349527750/928
#  [1] 授業単元:情報処理2 
#  [2] 問題文(含コード&リンク): 
#  1.自然数n1・n2(n1<n2)を入力し、n1からn2までの数の合計sを計算しその結果を表示しなさい 
#    ただし、sは次式で表せれるものとする。s=n2・(n2+1)-(n1-1)/2 
#   
#  2. 球の半径rを入力し、球の体積vを計算し、少数第2位まで表示しなさい 
#     π=3.1415  
#     半径を入力してください-->10 
#     答えは4188.79になります。 
#  

'球の半径rを入力し、球の体積vを計算し、少数第2位まで表示しなさい' :-
        '球の半径rを入力し'(_球の半径),
        '球の体積vを計算し'(_球の半径,_球の体積),
        '少数第2位まで表示しなさい'(_球の体積).

'球の半径rを入力し'(_球の半径) :-
        数を得る(球の半径,_球の半径 > 0.0,_球の半径).

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

'少数第2位まで表示しなさい'(_球の体積) :-
        format('答えは~2fになります。\n',[_球の体積]).