このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1276810079/786
#  コンピュータ基礎1 
#  OS windows7 32bit 
#  gcc2.9.5 
#  言語 c 
#  期限 なし 
#  課題でいくつかc言語の課題が出て、本当に簡単なのは何とか解いたのですが2つほど分からないものがあったので  
#  よろしければ教えていただきたいです。  
#   
#  .ーボードから1つの実数値xを入力し、絶対値を表示するプログラムを作りなさい  
#   
# 

キーボードから1つの実数値xを入力し、絶対値を表示する :-
        キーボードから1つの実数値xを入力し、(_x),
        絶対値を(_x,_xの絶対値),
        表示する(_x,_xの絶対値).

キーボードから1つの実数値xを入力し、(_x) :-
        write('実数値を入力してください : '),
        get_line(Line),
        実数値xを入力し、(Line,_x).

実数値xを入力し、(Line,_x) :- atom_to_term(Line,_x,_),real(_x),!.
実数値xを入力し、(Line,_x) :-
        write_formatted('入力された値%tは実数値ではありません\n',[Line]),
        キーボードから1つの実数値xを入力し、(_x).

絶対値を(_x,_xの絶対値) :-
        _x >= 0.0,
        _x = _xの絶対値,!.
絶対値を(_x,_xの絶対値) :-
        _x =< 0.0,
        _xの絶対値 is _x * (-1).

表示する(_x,_xの絶対値) :-
        write_formatted('|%t| = %t\n',[_x,_xの絶対値]).