このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1280653311/36
#  【質問テンプレ】 
#  [1] 授業単元:C言語 
#  [2] 問題文(含コード&リンク):キーボードより本体価格と税率を入力し、その税込価格を 
#                 表示するプログラムを作成せよ。 
#   
#                 任意の数値xを小数点以下第n位で四捨五入する作れ(nは任意) 
#  

'キーボードより本体価格と税率を入力し、その税込価格を表示する'(_本体価格,_税率,_税込価格) :-
        催促付き整数入力('本体価格を入力してください : ',_本体価格),
        write('税率を入力してください : '),
        get_line(Line),
        atom_to_term(Line,_税率,_),
        _税込価格 is truncate(_本体価格 * (1 + _税率/100)).

任意の数値xを小数点以下第n位で四捨五入する(_x,_n,_小数点以下第n位で四捨五入された値) :-
        M is 10 ^ _n,
        _小数点以下第n位で四捨五入された値 is floor(_x * M + 5) / M.