このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1312201995/761
#  [1] 授業単元:プログラミング演習  
#  [2] 問題文:  
#  円1:x^2+y^2=r^2と円2:(x-r)^2+(y-r)^2=r^2が重なっている部分の面積を求めるプログラムを作成しなさい。  
#  ただしπ=3,14159とする。                
#  

'x^2+y^2=r^2と円2:(x-r)^2+(y-r)^2=r^2が重なっている部分の面積を求める'(_r,_重なっている部分の面積) :-
        _重なっている部分の面積 is _r * _r * ( 1 - 2 * 3.14159 / 4).