このディレクトリの索引

# 出典 :: C/C++の宿題片付けます 136代目 #578 # 再び、お願いします(_ ) # # 【質問テンプレ】 # [1] 授業単元:C言語 演習問題4-14 # [2] 問題文(含コード&リンク):身長と標準体重を表示するプログラムを作成せよ。 #                なお、表示する身長の範囲(開始値、終了値、増分)は、整数値として読み込み、 #                標準体重は小数点以下2桁だけ表示すること。 # 身長と標準体重を表示する :- '身長の開始値・終了値と増分を入力する'(_開始値,_終了値,_増分), 身長の刻みごとに標準体重を表示する(_開始値,_終了値,_増分). '身長の開始値・終了値と増分を入力する'(_開始値,_終了値,_増分) :- 催促付き整数入力('身長(cm)の開始値(整数)を入力してください : ',_開始値), 催促付き整数入力('身長(cm)の終了値(整数)を入力してください : ',_終了値), 催促付き整数入力('増分(整数)を入力してください : ',_増分). 身長の刻みごとに標準体重を表示する(_開始値,_終了値,_増分) :- 身長の刻みごとに(_開始値,_終了値,_増分,_分割数,_刻み度数), 身長と標準体重を表示する(_開始値,_終了値,_刻み度数,_増分), _刻み度数 = _分割数. 身長の刻みごとに(_開始値,_終了値,_増分,_分割数,_刻み度数) :- _分割数 is (_終了値 - _開始値) // _増分, between(0,_分割数,_刻み度数). 身長と標準体重を表示する(_開始値,_終了値,_刻み度数,_増分) :- 身長と標準体重を(_開始値,_終了値,_刻み度数,_増分,_身長,_標準体重), 表示する(_身長,_標準体重). 身長と標準体重を(_開始値,_終了値,_刻み度数,_増分,_身長,_標準体重) :- _身長 is _開始値 + _増分 * _刻み度数, _標準体重 is (_身長 / 100) ^ 2 * 22. 表示する(_身長,_標準体重) :- writef('身長 = %tcm, ',[_身長]), format('標準体重 = ~2f\n',[_標準体重]),!. 催促付き整数入力(_催促,_整数) :- 催促付き行入力(_催促,_行), 整数入力検査(_行,_整数),!. 催促付き整数入力(_催促,_整数) :- 催促付き整数入力(_催促,_整数). 催促付き行入力(_催促,_行) :- writef('%w ',[_催促]), 行入力(_行). 行入力(_行) :- read_line_to_codes(current_input,_文字コードならび), atom_codes(_行,_文字コードならび). 整数入力検査(_行,_整数) :- atom_number(_行,_整数), integer(_整数),!.