このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1284632294/822
#  [1] 授業単元: プログラミング基礎  
#  [2] 問題文(含コード&リンク):  
#  整数値を読み込んで、その絶対値を表示するプログラムを作成せよ。  
#  

整数値を読み込んで、その絶対値を表示する :-
        整数値を読み込んで(_整数値),
        _絶対値 is abs(_整数値),
        write_formatted('入力された値 %t の 絶対値は %t です\n',[_整数値,_絶対値]).

整数値を読み込んで(_整数値) :-
        write('整数を入力してください : '),
        get_line(Line),
        診断(Line,_整数値),!.
整数値を読み込んで(_整数値) :- 整数値を読み込んで(_整数値).

診断(Line,_整数値) :-
        atom_to_term(Line,_整数値,_),
        integer(_整数値),!.
診断(Line,_整数値) :-
        write_formatted('入力された %t からは整数が得られません\n再入力をお願いします\n',[Line]),
        fail.