このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1357748713/705
#  [1] 授業単元:プログラミング演習 
#  [2] 問題文(含コード&リンク) 
#  [3] 環境 
#  問題1メイン関数でキーボードから二つの整数n1とn2を読み込み,それらをexponent関数を呼び出して, 
#  n1のn2乗を計算し,結果をメイン関数で表示するプログラムを書きなさい. 
#  <実行例> 
#  二つの整数を入力してください. 
#  n1 = 5 
#  n2 = 2 
#  5の2乗は25です. 
#  問題2 5人の点数を読み込んでいき、その最高点を表示するプログラムを作成しなさい。 
#  問題3 円の面積の一覧表を計算するプログラムを作成しなさい。 
#  <実行結果> 
#  半径 --- 面積 
#  1.0 --- 3.14 
#  1.1 --- 3.80 
#  1.2 --- 4.52 
#  1.3 --- 5.31 
#  問題4 球の体積を計算するプログラムを作成しなさい。 
#  実行例 
#  体積 = 1766.25 
#  [3.1] OS: unix 
#   [3.2] コンパイラ名とバージョン: gcc 
#   [3.3] 言語: C 
#  [4] 期限:2月19日 
#  [5] その他の制限: なし 
#  よろしくお願いします。 

'5人の点数を読み込んでいき、その最高点を表示する' :-
        findall(_点数,(
                    between(1,5,_),
                    数を得る(点数,true,_点数)),
                _5人の点数ならび),
        最高点(_5人の点数ならび,_最高点),
        writef('最高点は%tです\n',[_最高点).

最高点(_5人の点数ならび,_最高点) :-
        append(_,[_最高点|R],_5人の点数ならび),
        \+((member(A,R),A > _最高点)),!.