- 456 名前：デフォルトの名無しさん mailto:sage [2010/01/27(水) 06:26:04 ]
- >>450
% Prolog
得点を入力して以下のルールに従った成績を返す(_成績) :-
get_integer(_得点),
得点を入力して以下のルールに従った成績を返す(_得点,_成績).
得点を入力して以下のルールに従った成績を返す(_得点,_成績) :- '得点が90点以上の成績はS'(_得点,_成績).
得点を入力して以下のルールに従った成績を返す(_得点,_成績) :- '得点が80点以上の成績はA'(_得点,_成績).
得点を入力して以下のルールに従った成績を返す(_得点,_成績) :- '得点が60点以上の成績はB'(_得点,_成績).
得点を入力して以下のルールに従った成績を返す(_得点,_成績) :- '得点がそれ未満のはC'(_得点,_成績).
'得点が90点以上の成績はS'(_得点,'S') :- _得点 >= 90,!.
'得点が80点以上の成績はA'(_得点,'A') :- _得点 >= 80,_得点<90,!.
'得点が60点以上の成績はB'(_得点,'B') :- _得点 >= 60,_得点<80,!.
'得点がそれ未満の成績はC'(_得点,'C') :- _得点 < 60,!.
|
 |
