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

'キーボードからテストの得点m(0以上100以下)を入力し(1) m<60 の場合は「不合格」(2) 60≦m<80 の場合は「普通」 (3) 80≦m の場合は「優秀」 と表示する' :-
        'キーボードからテストの得点m(0以上100以下)を入力し'(_得点m),
        '(1) m<60 の場合は「不合格」(2) 60≦m<80 の場合は「普通」 (3) 80≦m の場合は「優秀」'(_得点m,_判定),
        表示する(_得点m,_判定).

'キーボードからテストの得点m(0以上100以下)を入力し'(_得点m) :-
        write('テストの得点を入力してください : '),
        get_line(Line),
        '得点m(0以上100以下)を入力し、'(Line,_得点m).

'得点m(0以上100以下)を入力し、'(Line,_得点m) :-
        atom_to_term(Line,X,_),
        integer(X),
        X >= 0,X =< 100,!.
実数値xを入力し、(Line,_得点m) :-
        write_formatted('入力された値%tは得点として妥当なものではありません\n',[Line]),
        'キーボードからテストの得点m(0以上100以下)を入力し'(_得点m).

'(1) m<60 の場合は「不合格」(2) 60≦m<80 の場合は「普通」 (3) 80≦m の場合は「優秀」'(_得点m,不合格) :- _得点m < 60,!.
'(1) m<60 の場合は「不合格」(2) 60≦m<80 の場合は「普通」 (3) 80≦m の場合は「優秀」'(_得点m,普通) :- 60 =< _得点m,_得点m < 80,!.
'(1) m<60 の場合は「不合格」(2) 60≦m<80 の場合は「普通」 (3) 80≦m の場合は「優秀」'(_得点m,優秀) :- _得点m >= 80,!.

表示する(_得点m,_判定) :-
        write_formatted('得点%tの判定は %t です\n',[_得点m,_判定]).