このディレクトリの索引

http://pc12.2ch.net/test/read.cgi/tech/1255709298/657 
# [1] 授業単元: C言語のポインタ、配列、ファイルの問題です  
# [2] 問題文(含コード&リンク):  
# n件のデータを配列に入力しその平均値を出力するプログラムをつくり、  
# 実行部において添字演算子は用いず、*(p+i)と*p++それぞれを用いるパターンを作る  
# ただし、入出力処理をファイル処理に、入出力ファイル名はコマンドラインで指定する

'n件のデータを配列に入力しその平均値を出力する'(N) :- 
    user_parameters([_入力ファイル,_出力ファイル]), 
    open(_入力ファイル,read,Input), 
    findavg(K,(for(1,M,N),get_line(Input,Line),(Line=end_of_file,!,fail;atom_to_term(Line,K,_))),Avg), 
    close(Input), 
    open(_出力ファイル,write,Output), 
    write_formatted(Output,'平均値は %t\n',[Avg]), /* この行訂正 */ 
    close(Output),!.