このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1325685876/285
#  [1] 授業単元:計算機アルゴリズム [2] 問題文(含コード&リンク):
#  (2).半径1の円に内接した正n角形の面積Sを求めよ。またn=100のケースと手計算の円の面積を比較せよ(n-100のケースのプログラム の結果をプログラムの下に貼り付ければ良い). 
#   

'半径1の円に内接した正n角形の面積Sを求めよ。'(_n角形,_面積) :-
        _θ is 2 * pi / _nn角形,
        _面積 is (0.5 * 1 * 1 * sin(_θ)) * _nn角形.

'またn=100のケースと手計算の円の面積を比較せよ'(_手計算の円の面積) :-
        '半径1の円に内接した正n角形の面積Sを求めよ。'(100,_面積),
        writef('手計算の円の面積 = %t\n',[_手計算の円の面積]),
        writef('_n角形の円の面積 = %t\n',[_面積]).