このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1349527750/212
#  C言語で明日までです 
#   
#   
#  n件の整数型データを配列に入力し、その平均値を出力するプログラムを作成せよ。ただし、実行部において添字演算子を用いないで、また、*(p+i)と*p++の形2つを用いた場合をそれぞれ求めよ。です。お願いします! 
# 
# 

'n件の整数データを入力し、その平均値を出力する'(_n) :-
        'n件の整数データを入力し'(_n,_n件の整数データ),
        その平均値を出力する(_n,_n件の整数データ,0).

'n件の整数データを入力し'(_n,_n件の整数データ) :-
        length(_n件の整数データ,_n),
        findall(_整数,(
                    append(L0,[_|_],_n件の整数データ),
                    length([_|L0],_何件目),
                    atomic_list_concat(['[',_何件目,']',' : '],_催促),
                    整数を得る(_催促,_整数)),
                _n件の整数データ).

その平均値を出力する(_n,[],_合計) :-
        _平均値 is _合計 / _n,
        writef('平均値 は %t です\n',[_平均値]).
その平均値を出力する(_n,[_整数|R],_合計_1) :-
        _合計_2 is _整数 + _合計_1,
        その平均値を出力する(_n,R,_合計_2).