このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1200175247/863
#  【質問テンプレ】  
#  [1] 授業単元:プログラミング  
#  [2] 問題文: 
#  二分法による平方根の計算。但し、求めたい平方根(自 
#  然数)を入力できるようにした上で、プログラムの実行時 
#  の計算回数を計算・表示できるように、プログラムを作成 
#  すること。 
#  

二分法による平方根の計算(X,Y) :-
        S1 is X / 2,
        二分法による平方根の計算(1,X,S1,Y).

二分法による平方根の計算(N,X,S1,Y) :-
        Y is X / 2 + S1,
        write_formattd('%t %10.4f\n',[N,Y]),
        0.0001 >  abs(Y - S1),!.
二分法による平方根の計算(N1,X,S1,Y) :-
        S2 is X / 2 + S1,
        N2 is N1 + 1,
        二分法による平方根の計算(N2,X,S2,Y).