このディレクトリの索引

# 出典 :: C/C++の宿題片付けます 128代目 #923 # [1] 授業単元:プログラミング # [2] 問題文(含コード&リンク):下に示すように,最初に整数を読み込み, # その後,その個数だけ整数を読み込んでいき,そ # の合計と平均を表示するプログラムを作成せよ。 # 整数は何個ですか: 6 # No.1 : 65 # No.2 : 23 # No.3 : 47 # No.4 : 9 # No.5 : 153 # No.6 : 777 # 合計値: 1074 # 平均値: 179.00 '下に示すように,最初に整数を読み込み, その後,その個数だけ整数を読み込んでいき, その合計と平均を表示するプログラムを作成せよ。 整数は何個ですか: 6 No.1 : 65 No.2 : 23 No.3 : 47 No.4 : 9 No.5 : 153 No.6 : 777 合計値: 1074 平均値: 179.00' :- 何個の整数を読み込むかを決めた後に整数をn個読み込む(_n,_整数ならび), その合計と平均を表示する(_n,_整数ならび). 何個の整数を読み込むかを決めた後に整数をn個読み込む(_整数ならび) :- 何個の整数を読み込むかを決めた後に(_n), 整数をn個読み込む(_n,_整数ならび). 何個の整数を読み込むかを決めた後に(_何個) :- write('整数は何個ですか: '), 整数を得る(_何個). 整数を得る(_整数) :- 行入力(_行), 整数入力検査(_行,整数),!. 整数を得る(_整数) :- 整数を得る(_整数). 行入力(_行) :- read_line_to_codes(current_input,_コードならび), atom_codes(_行,_コードならび). 整数入力検査(_行,整数) :- atom_number(_行,_整数), integer(_整数). 整数をn個読み込む(_n,_整数ならび) :- length(Ln,_n), findall(_整数,( 整数をひとつ読み込む(Ln,_整数)),_整数ならび). 整数をひとつ読み込む(Ln,_整数) :- append(L1,[_|_],Ln), length([_|L1],_何個目), '何個目の入力か表示した後、整数を得る'(_何個目,_整数). '何個目の入力か表示した後、整数を得る'(_何個目,_整数) :- '何個目の入力か表示した後、'(_何個目), 整数を得る(_整数). '何個目の入力か表示した後、'(_何個目) :- writef('No.%w: ',[_何個目]). その合計と平均を表示する(_n,_整数ならび) :- その合計と平均を(_n,_整数ならび,_合計値,_平均値), writef('合計値: %w\n平均値: %t\n',[_合計,_平均値]). その合計と平均を(_n,_整数ならび,_合計値,_平均値) :- 合計値(_整数ならび,_合計), 平均値(_n,_合計,_平均値). 合計値(L,_合計) :- sum_list(L,_合計). 平均値(_n,_合計,_平均値) :- _平均値 is _合計 / _n.