このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1260532772/6
# 
# 問題4 
# 平面上の2点(x1,y1)、(x2,y2)を入力し、それら2点間の距離を算出するプログラムを作成せよ。Aの平方根はsqrt(A)という数学関数で算出される(Aは引数でdouble型)。 
# 数学関数を使用する場合、というファイルから情報を得なければならないので、#includeの 
# 下の行に#includeという命令文を付け加えなければならない(2つのinclude文)。実行結果の例を以下に示す。 
# ------------------------------------------------ 
# x1:0 
# y1:0 
# x2:1 
# y2:1 
# この2点間の距離は1.414214です。

'平面上の2点(x1,y1)、(x2,y2)を入力し、それら2点間の距離を算出する' :-
    '2点の座標を得る'([x1,y1,x2,y2],[X1,Y1,X2,Y2]),
    平面上の2点間の距離(X1,Y1,X2,Y2,_2点間の距離),
    write_formatted('この2点間の距離は%tです。\n',[_2点間の距離]).

'2点の座標を得る'([],[]) :- !.
'2点の座標を得る'([A|R1],[V|R2]) :-
    concat_atom([A,' :'],S),
    write(S),
    get_line(Line),
    atom_to_term(Line,V,_),
    '2点の座標を得る'(R1,R2).

平面上の2点間の距離(X1,Y1,X2,Y2,_2点間の距離) :-
    _2点間の距離 is sqrt((X2-X1)^2 + (Y2-Y1)^2).