このディレクトリの索引

# 出典 :: C/C++の宿題片付けます 133代目 #6 # # 問題2 # 長さX(cm:センチメートル)を入力すると、Y(inch:インチ)に変換するプログラムを作成せよ。1(inch)は2.54(cm)とする。実行結果の例を以下に示す。 # ------------------------------------------------ # 長さ(センチメートルで入力して下さい):2.54 # 2.54(cm)は 1.000(inch)です。 '長さX(cm:センチメートル)を入力すると、Y(inch:インチ)に変換する' :- 数を得る('長さ(センチメートルで入力して下さい):',true,_cm), 'センチメートル・インチ変換'(_cm,_inch), writef('%w (cm) は %w (inch) です。\n',[_cm,_inch]). 'センチメートル・インチ変換'(_cm,_inch) :- \+(var(_cm)),_inch is _cm / 2.54,!. 'センチメートル・インチ変換'(_cm,_inch) :- \+(var(_inch)),_cm is _inch * 2.54. 数を得る(_催促,_評価,_数) :- 催促後に行入力(_催促,_行), 数検査(_行,_数), 数評価(_評価). 催促後に行入力(_催促,_行) :- write(_催促), 行入力(_行). 行入力(_行) :- read_line_to_codes(current_input,_文字コードならび), atom_codes(_行,_文字コードならび). 数検査(_行,_数) :- atom_number(_行,_数). 数評価(_評価) :- call(_評価).