このディレクトリの索引

# 出題場所 :: http://toro.2ch.net/test/read.cgi/tech/1381909900/745 # [2] キーボードから読み込む、実数の3乗を求めて表示するプログラム(floatを用いて) # 'キーボードから実数を読み込む、実数の3乗を求めて表示する' :- 'キーボードから実数を読み込む、'(_実数), 実数の3乗を求めて表示する(_実数). 実数の3乗を求めて表示する(_実数) :- 実数の3乗を求めて(_実数,_実数の3乗), 表示する(_実数,_実数の3乗). 'キーボードから実数を読み込む、'(_実数) :- 行入力(_行), 実数入力検査(_行,_実数),!. キーボードから実数を読み込む(_実数) :- キーボードから実数を読み込む(_実数). 行入力(_行) :- read_line_to_codes(current_input,Codes), atom_codes(_行,Codes). 実数入力検査(_行,_実数) :- atom_number(_行,_実数),!. 実数入力検査(_行,_実数) :- 再入力要請(_行). 再入力要請(_行) :- writef('入力された%wは実数ではありません。再入力をお願いします。\n',[_行]), fail. 実数の3乗を求めて(_実数,_実数の3乗) :- _実数の3乗 is _実数 ^ 3. 表示する(_実数,_実数の3乗) :- writef('%w ^ 3 = %w\n',[_実数,_実数の3乗]).