このディレクトリの索引

# C/C++の宿題片付けます 132代目 #64 # [1] 授業単元:プログラミング # [2] 問題文(含コード&リンク): # 問題 # キーボードから10人分の身長を入力し、 # 180cm以上なら「高い」、 # 150cm以上、180cm未満なら「普通」、 # 150cm未満なら「低い」と表示するプログラムを作成しなさい。 # # 問題 # キーボードから10人分の身長を入力し、 # 合計と平均を計算し、表示するプログラムを作成しなさい。 # (なお小数点以下は無視して下さい。) 'キーボードから10人分の身長を入力し、合計と平均を計算し、表示する。(なお小数点以下は無視して下さい)' :- 'キーボードから10人分の身長を入力し(なお小数点以下は無視して下さい)'(_10人分の小数点以下を無視した身長ならび), '合計と平均を計算し、表示する。'(_10人分の小数点以下を無視した身長ならび). 'キーボードから10人分の身長を入力し(なお小数点以下は無視して下さい)'(_10人分の小数点以下を無視した身長ならび) :- findall(_小数点以下を無視した身長,( between(1,10,_何番目), 'キーボードから身長を入力し(なお小数点以下は無視して下さい)'(_何番目,_小数点以下を無視した身長)),_10人分の小数点以下を無視した身長ならび). 'キーボードから身長を入力し(なお小数点以下は無視して下さい)'(_何番目,_小数点以下を無視した身長) :- writef('身長[%w] : ',[_何番目]), キーボードから数を得る(_身長), なお小数点以下は無視して下さい(_身長,_小数点以下を無視した身長). なお小数点以下は無視して下さい(_身長,_小数点以下を無視した身長) :- _小数点以下を無視した身長 is truncate(_身長). '合計と平均を計算し、表示する。'(_10人分の小数点以下を無視した身長ならび) :- '合計と平均を計算し(なお小数点以下は無視して下さい)'(_10人分の小数点以下を無視した身長ならび,_合計,_平均), 表示する(_合計,_平均). '合計と平均を計算し(なお小数点以下は無視して下さい)'(_10人分の小数点以下を無視した身長ならび,_合計,_平均) :- sum_list(_10人分の小数点以下を無視した身長ならび,_合計), _平均 is truncate(_合計 / 10). キーボードから数を得る(_数) :- キーボードから行入力(_行), 行から数に変換(_行,_数). キーボードから行入力(_行) :- read_line_to_codes(user_input,_コードならび), atom_codes(_行,_コードならび). 行から数に変換(_行,_数) :- atom_number(_行,_数). 表示する(_合計,_平均) :- writef('合計 :: %w, 平均 :: %w\n',[_合計,_平均]).