このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1288531658/32
#  失礼しました。 
#   
#  [1] 授業単元:応用プログラミング 
#  [2] 問題文(含コード&リンク): 
#  n人の成績データを一次元配列に格納し、平均点を求めるプログラムを作成せよ。 
#  ただし、データ入力部、計算部、出力部は関数化せよ。 
#   
#  

'n人の成績データを一次元配列に格納し、平均点を求める'(_成績ならび,_平均点) :-
        get_lines('data.txt',Lines),
        append([Line],R,Lines),
        atom_to_term(Line,_n人,_),
        length(_成績ならび,_n人),
        append(_成績ならび,_,R),
        findavg(N,(
                    append(_,[A|_],L),
                    atom_to_term(A,N,_)),
               _平均点),
        write_formatted('成績ならびは %t. 平均点は %t です。\n',[_成績ならび,_平均点]).