このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1294061094/189
#  [1] 授業単元: C言語基礎 
#  [2] 問題文(含コード&リンク): http://ime.nu/www.dotup.org/uploda/www.dotup.org1351836.jpg 
#  
#  二次元平面上の二点A,Bの座標を引数として点A,B間の距離を返す関数distance()を作成し,
#  さらにdistance()を利用して二点の座標を引数として,その二点を直径とする円の面積を計算して
#  返すcircle()を作れ。
#  

'二次元平面上の二点A,Bの座標を引数として点A,B間の距離を返す'(A_X,A_Y,B_X,B_Y,_二点間の距離) :-
        _二点間の距離 is abs(sqrt((A_X - B_X) * (A_X - B_X) + (A_Y - B_Y) * (A_Y - B_Y))).

'二点の座標を引数として,その二点を直径とする円の面積'(A_X,A_Y,B_X,B_Y,_円の面積) :-
        '二次元平面上の二点A,Bの座標を引数として点A,B間の距離を返す'(A_X,A_Y,B_X,B_Y,_二点間の距離),
        _円の面積 is (_二点間の距離 / 2) * (_二点間の距離 / 2) * pi.