このディレクトリの索引

# 出典 :: C/C++の宿題片付けます 167代目 #317 # [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(_体重ならび,_標本数).