このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1284632294/921
#  質問にきましたお邪魔します。 
#  [1] Cプログラミング 
#  [2] 問題文(含コード&リンク): 数問あるのでリンクからお願いします。 
#  http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10941.txt 
#  
# 問4.平面上の点の座標(2つの実数)をキーボードから入力し、
# その点が原点を中心とする半径1の円の中にある場合には「中」、外にある場合には「外」と表示するプログラム。
# 

'平面上の点の座標(2つの実数)をキーボードから入力し、その点が原点を中心とする半径1の円の中にある場合には「中」、外にある場合には「外」と表示する' :-
        write('x座標(実数)を入力してください : '),
        実数を得る(_x座標),
        write('y座標(実数)を入力してください : '),
        実数を得る(_y座標),
        _原点からの距離 is sqrt(_x座標^2 + _y座標^2),
        その点が原点を中心とする半径1の円の中にある場合には「中」、外にある場合には「外」と表示する'(_原点からの距離,_中または外).

'その点が原点を中心とする半径1の円の中にある場合には「中」、外にある場合には「外」と表示する'(_原点からの距離,中) :- _原点からの距離 =< 1.0,!.
'その点が原点を中心とする半径1の円の中にある場合には「中」、外にある場合には「外」と表示する'(_原点からの距離,外) :- _原点からの距離 > 1.0,!.