このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1269438098/399
#  引数1に10進の1/10の位までの値(例えば45なら4.5という意味です)、  
#  引数2に目量数があったとして  
#  目量の数に四捨五入するプログラムを作る。  
#  例えば45,2なら結果は4、123,5なら10で125,5なら15という風にな  
#  る-45,3なら-6、-44,3なら-3・・・  
#  よろしくお願いします。  
# 
# 
'引数1に10進の1/10の位までの値(例えば45なら4.5という意味です)、引数2に目量数があったとして目量の数に四捨五入するプログラム'(M,N,X) :-
      M >= 0,
      N10 is N * 10,
      MX is (M + (N10 // 2)) // N10,
      X is (MX * N10) // 10.
'引数1に10進の1/10の位までの値(例えば45なら4.5という意味です)、引数2に目量数があったとして目量の数に四捨五入するプログラム'(M,N,X) :-
      M < 0,
      N10 is N * 10,
      MX is (M - (N10 // 2)) // N10,
      X is (MX * N10) // 10.