このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1258158172/778
#  [1] 授業単元:プログラミング演習2 
#  [2] 問題文(含コード&リンク): http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10246.txt
# 課題2-1の問題文とそのプログラムを下に示しときます。
# 
# [課題2-1]
# n件の整数型データを配列に入力し、その平均値を出力するプログラムを作成せよ。
# なお、実行部において添字演算子を用いないこと。また、*(p+i)の形を用いること。
# 
# [課題2-2]
# 課題2-1と同じ機能を持つプログラムを作成せよ。ただし、入出力処理をファイル処理に変更し、
# 入出力ファイルはコマンドラインで指定すること。
#
% 課題2-2

program :-
    user_parameters([_入力ファイル名,_出力ファイル名]),
    see(_入力ファイル名),
    tell(_出力ファイル名),
    'N件の整数型データを配列に入力し、その平均値を出力する',
    told,
    seen.

'N件の整数型データを配列に入力し、その平均値を出力する' :-
    get_integer(N),
    findavg(I,(for(1,M,N),get_integer(I)),_平均値),
    write_formatted('平均=%t\n',[_平均値]),!.