このディレクトリの索引

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