このディレクトリの索引
#  
#  [1] 授業単元:プログラミングII 
#  [2] 問題文(含コード&リンク): 
#  課題: 
#    #include < stdio.h >
#  int main (void){
#  int i;
#  float taiju[10]={58.6,65.2,74.4,46.0,52.8,62.4,55.0,51.2,54.8,48.4};
#  float total,average;
#  total=0;
#  
#  for(i=0;i<10;i++){
#  total+=taiju[i];
#  }
#  average=total/10;
#  printf("Total=%.1f\n",total);
#  printf("Average=%.1f\n",average);
#  return 0;
#  このプログラムを関数にするにはどこをどうしたらいいですか?
#  }
#  これをPrologの全く異なったプログラムに作り変えなさい。
#  

標本体重(58.6).
標本体重(65.2).
標本体重(74.4).
標本体重(46.0).
標本体重(52.8).
標本体重(62.4).
標本体重(55.0).
標本体重(51.2).
標本体重(54.8).
標本体重(48.4).

標本体重の合計と相加平均を求める(_標本体重の合計,_標本体重の相加平均) :-
体重ならびを得る(_体重ならび),
標本体重の合計と相加平均を求める(_体重ならび,_標本体重の合計,_標本体重の相加平均).

体重ならびを得る(_体重ならび) :-
findall(_体重,標本体重(_体重),_体重ならび).

標本体重の合計と相加平均を求める(_体重ならび,_標本体重の合計,_標本体重の相加平均) :-
標本体重の合計と(_体重ならび,_標本体重の合計),
相加平均を求める(_体重ならび,_標本体重の合計,_標本体重の相加平均).

標本体重の合計と(_体重ならび,_標本体重の合計) :-
sum_list(_体重ならび,_標本体重の合計).

相加平均を求める(_体重ならび,_標本体重の合計,_標本体重の相加平均) :-
標本体重の合計を標本数で割ったものが相加平均である(_体重ならび,_標本体重の合計,_標本体重の相加平均).

標本体重の合計を標本数で割ったものが相加平均である(_体重ならび,_標本体重の合計,_標本体重の相加平均) :-
標本数を得る(_体重ならび,_標本数),
_標本体重の相加平均 is _標本体重の合計 / _標本数.

標本数を得る(_体重ならび,_標本数) :-
length(_体重ならび,_標本数).