このディレクトリの索引
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] その他の制限: なし 
#  よろしくお願いします。 

'キーボードから二つの整数n1とn2を読み込み,n1のn2乗を計算し,結果を表示する' :-
        'キーボードから二つの整数n1とn2を読み込み'(_n1,_n2),
        'n1のn2乗を計算し'(_n1,_n2,_n3),
        結果を表示する(_n1,_n2,_n3).

'キーボードから二つの整数n1とn2を読み込み'(_n1,_n2) :-
        整数を得る(n1,true,_n1),
        整数を得る(n2,true,_n2).

'n1のn2乗を計算し'(_n1,_n2,_n3) :-
        _n3 is truncate(_n1 ^ _n2).

結果を表示する(_n1,_n2,_n3) :-
        writef('%tの%t乗は%tです\n',[_n1,_n2,_n3]).