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

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

'n件の整数データを入力しその平均値を出力する'(M_1,_n,_合計) :-
        M_1 > _n,
        その平均値を出力する(_n,_合計).
'n件の整数データを入力しその平均値を出力する'(M_1,_n,_合計_1) :-
        M =< _n,
        整数データを入力し(M,_合計_1,M_2,_合計_2),
        'n件の整数データを入力し'(M_2,_n,R).

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

整数データを入力し(M_1,_合計_1,M_2,_合計_2) :-
        writef('[%t]件目 : ',[M_1]),
        整数を得る(_整数),
        M_2 is M_1 + 1,
        _合計_2 is _整数 + _合計_1.