このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1267796762/199
#  【 課題 】下記参照です。 
#  【 形態 】1. Javaアプリケーション(main()で開始)/  
#  【 期限 】6/29  
#  【 Ver  】"1.6.0_20"  
#  【 補足 】丸投げです。よろしくお願いします。 
#   
#  キーボードから整数(0-100)をいくつか入力し、終わった時点で、それらの最大値・最小値・平均を表示させよう。 
#  「!」の入力で処理を終了する。 
#  数値の入力のたびにすべきこと: 
#    最大値と最小値の更新 
#    入力の総和に加算 
#    入力の個数を1増加 
#   
# 

'キーホ゛ート゛から整数(0-100)をいくつか入力し、終わった時点で、それらの最大値・最小値・平均を表示させよう。「!」の入力で処理を終了する。' :-
        'キーホ゛ート゛から整数(0-100)を入力し'(N),
        _度数1=0,_合計値1=0,_最大値1=N,_最小値1=N,
        'キーホ゛ート゛から整数(0-100)をいくつか入力し、終わった時点で、それらの最大値・最小値・平均を表示させよう。「!」の入力で処理を終了する。'(N,_度数1,_合計値1,_最大値1,_最小値1).

'キーホ゛ート゛から整数(0-100)をいくつか入力し、終わった時点で、それらの最大値・最小値・平均を表示させよう。「!」の入力で処理を終了する。'((-1),_度数,_合計値,_最大値,_最小値) :-
        '終わった時点で、それらの最大値・最小値・平均を表示させよう。'(_度数1,_合計値1,_最大値1,_最小値1).
'キーホ゛ート゛から整数(0-100)をいくつか入力し、終わった時点で、それらの最大値・最小値・平均を表示させよう。「!」の入力で処理を終了する。'(N1,_度数1,_合計値1,_最大値1,_最小値1) :-
        N1 < _最小値1,
        _度数2 is _度数 + 1,
        _合計値2 is _合計値1 + N1,
        'キーホ゛ート゛から整数(0-100)を入力し'(N2),
        'キーホ゛ート゛から整数(0-100)をいくつか入力し、終わった時点で、それらの最大値・最小値・平均を表示させよう。「!」の入力で処理を終了する。'(N2,_度数2,_合計値2,_最大値1,N1),!.
'キーホ゛ート゛から整数(0-100)をいくつか入力し、終わった時点で、それらの最大値・最小値・平均を表示させよう。「!」の入力で処理を終了する。'(N1,_度数1,_合計値1,_最大値1,_最小値1) :-
        N1 >  _最大値1,
        _度数2 is _度数 + 1,
        _合計値2 is _合計値1 + N1,
        'キーホ゛ート゛から整数(0-100)を入力し'(N2),
        'キーホ゛ート゛から整数(0-100)をいくつか入力し、終わった時点で、それらの最大値・最小値・平均を表示させよう。「!」の入力で処理を終了する。'(N2,_度数2,_合計値2,N1,_最小値1),!.
'キーホ゛ート゛から整数(0-100)をいくつか入力し、終わった時点で、それらの最大値・最小値・平均を表示させよう。「!」の入力で処理を終了する。'(N1,_度数1,_合計値1,_最大値1,_最小値1) :-
        _度数2 is _度数 + 1,
        _合計値2 is _合計値1 + N1,
        'キーホ゛ート゛から整数(0-100)を入力し'(N2),
        'キーホ゛ート゛から整数(0-100)をいくつか入力し、終わった時点で、それらの最大値・最小値・平均を表示させよう。「!」の入力で処理を終了する。'(N2,_度数2,_合計値2,_最大値1,_最小値1),!.

'終わった時点で、それらの最大値・最小値・平均を表示させよう。'(_度数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,_).