このディレクトリの索引
このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1294061094/819
#  [1] 授業単元:プログラミング演習 2 
#  [2] 問題文(含コード&リンク) 
#  
#  球の体積を計算するプログラムを作成しなさい。
#  <作成条件>
#  関数の定義は以下の順序で行うこと。(プロトタイプ宣言が必要となります)
#  main()関数
#  下記の関数を組み合わせて呼び出し、直径15のときの球の体積を求め、その値を表示してください。
#  ただし、main()関数内では、変数を一切使うことなく関数の呼び出しを行ってください。

#  体積の計算用として、下記の2つの関数を定義してください。
#  1. radius関数:直径を引数として受け取り、半径を返却値として返す
#  2. volume関数:半径を引数として受け取り、球の体積を返却値として返す
#  ただし、引数及び返却値の型は、すべて double 型とします。
#  <実行例>
#  体積 = 1766.25

:- op(700,xfx,は).

球の体積を計算する :-
        関数表示(球の体積(直径から半径を得る(15))),
        nl.

直径から半径を得る(_直径,_半径) :-
        _半径 is _直径 / 2.

球の体積(_半径,_球の体積) :-
        _球の体積 is (4 * _半径 * _半径 * _半径) / 3.

関数表示(_関数) :-
        _関数の値 は _関数,
        write_formatted('%t',[_関数の値]).


%  は/2