このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1342966104/899
#  1.C言語 変数・型・条件文 
#  2.問題3個 
#  ・キーボードから実数を1つ入力し10倍した数の整数部だけをint 型の変数に代入して表示す 
#  るプログラムを作成せよ。 
#  ・キーボードから実数を1つ入力し10倍した数の一の位を表示するプログラムを作成せよ。 
#  ・平面上の点の座標(2つの実数) をキーボードから入力し、その点が原点を中心とする半径1の 
#  円の中にある場合には中、 外にある場合には外と表示するプログラムを作成せよ。 
#  3.Linux  gcc C言語 
#  4.本日中 
#  よろしくお願いします。 
# 
# 

'平面上の点の座標(2つの実数) をキーボードから入力し、その点が原点を中心とする半径1の円の中にある場合には中、 外にある場合には外と表示する' :-
        実数を得る(実数,_x),
        実数を得る(実数,_y),
        'その点が原点を中心とする半径1の円の中にある場合には中、 外にある場合には外と表示する'(_x,_y).

'その点が原点を中心とする半径1の円の中にある場合には中、 外にある場合には外と表示する'(_x,_y) :-
        _その点の原点からの距離 is sqrt(_x * _x + _y * _y),
        'その点が原点を中心とする半径1の円の中にある場合には中、 外にある場合には外と表示する'(_その点の原点からの距離).

'その点が原点を中心とする半径1の円の中にある場合には中、 外にある場合には外と表示する'(_その点の原点からの距離) :-
        _その点の原点からの距離 =< 1.0,
        writef('%t\n',[中]).
'その点が原点を中心とする半径1の円の中にある場合には中、 外にある場合には外と表示する'(_その点の原点からの距離) :-
        _その点の原点からの距離 < 1.0,
        writef('%t\n',[外]).