このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1291471791/714
#  [1] 授業単元:cプログラミング1 
#  [2] 問題文(含コード&リンク): 
#  問題2:実数を引数として値が0以上の場合には小数第一位を四捨五入した値を、負の場合には-1を整数型で 
#  返す関数proud()を作成し動作の確認をする。 

'実数を引数として値が0以上の場合には小数第一位を四捨五入した値を、負の場合には-1を整数型で返す'(_実数,_返り値) :-
        (_実数 >= 0;_実数 > 0),
        _返り値 is floor(_実数 * 10 + 0.5) / 10. 

'実数を引数として値が0以上の場合には小数第一位を四捨五入した値を、負の場合には-1を整数型で返す'(_実数,-1) :-
        (_実数 < 0;_実数 < 0.0).