このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1258320456/207
#  3.  下記の手順に従ってsin(x)/x=0.90の近似解xを求めるスクリプトを作成しなさい。なお、sin(1.)/1.≒0.85で、ここからxの減少に伴ってsin(x)/xの値が単調増加することはわかっているものとします。スクリプトの名前はkinji.pyとしてください。   
#   
#  (1) xを1.とする。  
#  (2)次の過程を無限ループで繰り返す 。 
#      (2.1)sin(x)/xを計算してyに代入する。 
#      (2.2)xとy(sin(x)/x)の値を表示する。 
#      (2.3)yの値が0.90以下の場合、xの値を0.01小さくして(2.1)にもどる。 
#      (2.4)yの値が0.90以上であれば、”近似解がみつかりました。解は***です”というメッセージを示して、プログラムを終了する。 
#   
#  実行例 
#  ./kinji.py 
#  sin(x)/x=0.9の近似解を求めます 
#  x=0.99  sin(x)/x=0.844470685455 
#  x=0.98  sin(x)/x= 0.84744629642 
#  中略 ....... 
#   
#  x=***   sin(x)/x=************** 
#  近似解が見つかりました。解は***です。  
#   
#   
#  (ヒント:ループから抜けるbreak) 
#   
#   
# 
# 

'sin(x)/xを近似解'(_x) :-
        _解 is (sin(_x) / _x),
        'sin(x)/xを近似解'(_x,_解),!.
'sin(x)/xを近似解'(_x) :-
        _x_1 is _x - 0.01,
        'sin(x)/xを近似解'(_x_1).

'sin(x)/xの近似解'(_x,_解) :-
        _解 >= 0.90,
        write_formatted('X=%t  sin(x)/x=%t\n',[_x,_解]),
        write_formatted('近似解が見つかりました。解は %t です。\n',[_解]),!.
'sin(x)/xを近似解'(_x,_解) :-
        _解 < 0.90,
        write_formatted('X=%t  sin(x)/x=%t\n',[_x,_解]),
        fail.