このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1284632294/947
#  [1] 授業単元:C言語基礎実習 
#  [2] 問題文(含コード&リンク): 入力された実数の平方根を"二分法"で求めて表示するプログラムを作成すること。 
#  精度は小数点第六位まで。ただし、入力された値が1未満の場合は何もしないこと。 
#   
#  

'入力された実数の平方根を"二分法"で求めて表示する。精度は小数点第六位まで。ただし、入力された値が1未満の場合は何もしないこと。' :-
        実数を得る(_実数),
        _実数 > 1.0,
        二分法による平方根の計算。精度は小数点第六位まで。(_実数,_平方根),
        write_formatted('%t の平方根は %t です\n',[_実数,_平方根]).

二分法による平方根の計算。精度は小数点第六位まで。(X,Y) :-
        S1 is X / 2,
        精度は小数点第N位まで(6,V),
        二分法による平方根の計算。精度は小数点第六位まで。(1,X,S1,V,Y).

二分法による平方根の計算。精度は小数点第六位まで。(N,X,S1,V,Y) :-
        Y is X / 2 + S1,
        V >  abs(Y - S1),!.
二分法による平方根の計算。精度は小数点第六位まで。(N1,X,S1,V,Y) :-
        S2 is S / 2 + S1,
        N2 is N1 + 1,
        二分法による平方根の計算。精度は小数点第六位まで。(N2,X,S2,V,Y).

精度は小数点第N位まで(N,V) :- V is 0.1 ^ N,!.