このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1354070278/411
#  (1)C言語 
#  (2)問題:課題形式が少し特殊だったのでjpgにしました。 
#  http://ime.nu/www.dotup.org/uploda/www.dotup.org3745774.jpg 
#  (3)windows vista visualstudio2010 
#  (4)期限:2012年12月19日(水) 
#  (5)よろしくお願いします 
# 
#  ある授業の単位を取得する条件は次の二件を同時に満たすことである。
#  ・試験で60点以上取る
#  ・欠席数が三分の一未満である
#  授業回数、点数、欠席回数を入力し、単位取得の可否を判定する。
#  

'ある授業の単位を取得する条件は次の二件を同時に満たすことである。
・試験で60点以上取る
・欠席数が三分の一未満である
授業回数、点数、欠席回数を入力し、単位取得の可否を判定する。' :-
        '授業回数、点数、欠席回数を入力し'(_授業回数,_点数,_欠席回数),
        'ある授業の単位を取得する条件は次の二件を同時に満たすことである。
・試験で60点以上取る
・欠席数が三分の一未満である
単位取得の可否を判定する。'(_授業回数,_点数,_欠席回数).


'授業回数、点数、欠席回数を入力し'(_授業回数,_点数,_欠席回数) :-
        整数を得る(授業回数,true,_授業回数),
        整数を得る(授業回数,(点数,_点数=<100),_点数),
        整数を得る(欠席回数,_欠席回数>= 0,_欠席回数),!.

'ある授業の単位を取得する条件は次の二件を同時に満たすことである。
・試験で60点以上取る
・欠席数が三分の一未満である
単位取得の可否を判定する。'(_授業回数,_点数,_欠席回数) :-
        _点数 >= 60,
        1 / 3 > _欠席回数 / _授業回数,
        write('おめでとう、単位取得できます!\n'),!.
'ある授業の単位を取得する条件は次の二件を同時に満たすことである。
・試験で60点以上取る
・欠席数が三分の一未満である
単位取得の可否を判定する。'(_授業回数,_点数,_欠席回数) :-
        write('残念、単位は取れません・・・\n').