10/01/27 03:10:28
>>450
% Prolog 少し模索
得点を入力して以下のルールに従った成績を返す(_成績) :-
get_integer(_得点),
得点を入力して以下のルールに従った成績を返す(_得点,_成績).
得点を入力して以下のルールに従った成績を返す(_得点,_成績) :- '得点が90点以上'(_得点,_成績).
得点を入力して以下のルールに従った成績を返す(_得点,_成績) :- '得点が80点以上'(_得点,_成績).
得点を入力して以下のルールに従った成績を返す(_得点,_成績) :- '得点が60点以上'(_得点,_成績).
得点を入力して以下のルールに従った成績を返す(_得点,_成績) :- '得点が60点未満'(_得点,_成績).
'得点が90点以上'(_得点,'S') :- _得点 >= 90,!.
'得点が80点以上'(_得点,'A') :- _得点 >= 80,_得点<90,!.
'得点が60点以上'(_得点,'B') :- _得点 >= 60,_得点<80,!.
'得点がそれ未満'(_得点,'C') :- _得点 < 60,!.