10/06/28 05:09:06
>>117
% Prolog (その二)
'終わった時点で、それらの最大値・最小値・平均を表示させよう。'(_度数1,_合計値1,_最大値1,_最小値1) :-
_平均値 is _合計値 / _度数,
write_formatted('最大値=%t,最小値=%t,平均値=%t\n',[_最大値,_最小値,_平均値]),!.
'キーホ゛ート゛から整数（0-100）を入力し'(N) :-
write('整数(0-100)を入力してください : ',
get_line(Line),
'「!」の入力で処理を終了する。'(Line,N).
'「!」の入力で処理を終了する。'((!),(-1)) :- !.
'「!」の入力で処理を終了する。'(Line,N) :- atom_to_term(Line,N,_).