10/02/03 05:26:20
>>225
% Prolog (その一)
'０から１０の中からランダムに整数の２組を決める。それを平面上の座標と、座標を１０個つくる。'(_１０個の座標点ならび) :-
'座標を１０個つくる。'(1,_１０個の座標点ならび).
座標を１０個つくる。'(N,[]) :- N > 10,!.
座標を１０個つくる。'(N,[[X,Y]|R]) :-
'０から１０の中からランダムに整数の２組を決める。'(X,Y),
N2 is N + 1,
座標を１０個つくる。'(N2,R).
'０から１０の中からランダムに整数の２組を決める。'(X,Y) :- X is random mod 9,Yis random mod 9.
ユーザに座標を入力させ、その点から最も遠い点と近い点を求める。(_１０個の座標点ならび,X,Y,_最も遠い点,_最も近い点) :-
ユーザに座標を入力させ、(X,Y),
その点から最も遠い点と近い点を求める(_１０個の座標点ならび,X,Y,_最も遠い点のX座標,_最も遠い点のY座標,_最も近い点のX座標,_最も近い点のY座標),
ユーザ座標と１０個の座標点の表示(_１０個の座標点ならび,X,Y,_最も遠い点のX座標,_最も遠い点のY座標,_最も近い点のX座標,_最も近い点のY座標).
ユーザに座標を入力させ、(X,Y) :-
催促付き整数入力('X座標を入力してください :',X),
催促付き整数入力('Y座標を入力してください :',Y),!.
その点から最も遠い点と近い点を求める。(_１０個の座標点ならび,X,Y,_最も遠い点のX座標,_最も遠い点のY座標,_最も近い点のX座標,_最も近い点のY座標) :-
ユーザの入力点からの距離ならびを得る(_１０個の座標点ならび,X,Y,_ユーザの入力点からの距離ならび),
ユーザの入力座標から最も遠い点を得る(_ユーザの入力点からの距離ならび,X,Y,_最も遠い点X座標,_最も遠い点Y座標),
ユーザの入力座標から最も近い点を得る(_ユーザの入力点からの距離ならび,X,Y,_最も近い点X座標,_最も近い点Y座標),!.