このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1294061094/21
#  [1] 授業単元:C言語プログラミング 
#  [2] 問題文(含コード&リンク): http://ime.nu/www.dotup.org/uploda/www.dotup.org1340661.txt 
#  
#  1.実数aと整数nを引数としてa^nを返すpower()を作成せよ。

'実数aと整数nを引数としてa^nを返すpower()を作成せよ。'(_実数a,_整数n,_power) :-
        power(_実数a,_整数n,_power).

power(_a,_n,_power) :-
        float(_a),
        integer(_n),
        _power is _a ^ _n.