このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1276810079/786
#  コンピュータ基礎1 
#  OS windows7 32bit 
#  gcc2.9.5 
#  言語 c 
#  期限 なし 
#  課題でいくつかc言語の課題が出て、本当に簡単なのは何とか解いたのですが2つほど分からないものがあったので  
#  よろしければ教えていただきたいです。  
#   
#  .ーボードから1つの実数値xを入力し、絶対値を表示するプログラムを作りなさい  
#   
#  ▲ーボードからテストの得点m(0以上100以下)を入力し  
#  (1) m<60 の場合は「不合格」  
#  (2) 60≦m<80 の場合は「普通」  
#  (3) 80≦m の場合は「優秀」  
#  と表示するプログラムを作りなさい。 
# 

'キーボードから1つの実数値xを入力し、絶対値を表示するプログラムを作りなさい' :-
        get_float(_x),
        _y is abs(_x),
        write_formatted('%t',[_y]).

get_float(V) :-
        get_line(Line),
        atom_to_term(Line,V,_),
        診断(Line,V),!.
get_float(V) :- get_float(V).

診断(_,V) :- float(V),!.
診断(_,V) :- integer(V),!,
        write_formatted('%tは浮動小数点数ではありません。整数です。',[V]),
        write('再入力が必要です : '),
        fail.
診断(Line,V) :-
        write_formatted('入力された文字列%tを項に変換して%tが得られましたが\nこれは浮動小数点数ではありません。\n',[Line,V]),
        write('再入力が必要です : '),
        fail.