このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1349527750/523
#  [1] 授業単元: c言語 
#  [2] 問題文:  
#  2. ある携帯電話会社の料金制度は、データ通信1パケットあたり0.110円の従量制だが、 
#  54000パケット以上はどれだけ使用しても5940円となる。 
#  なお1円未満の料金は切り捨てとなる。このとき、1ヶ月の使用パケット数を入力すると 
#  料金を表示するプログラムを作成せよ。入力される数値として、正の整数値に対応すること。 
#   

'ある携帯電話会社の料金制度は、データ通信1パケットあたり0.11円の従量制だが、
54000パケット以上はどれだけ使用しても5940円となる。
なお1円未満の料金は切り捨てとなる。このとき、1ヶ月の使用パケット数を入力すると
料金を表示するプログラムを作成せよ。入力される数値として、正の整数値に対応すること。' :-
        'ある携帯電話会社の料金制度は、データ通信1パケットあたり0.11円の従量制だが、54000パケット以上はどれだけ使用しても5940円となる。なお1円未満の料金は切り捨てとなる。このとき、1ヶ月の使用パケット数を入力すると料金を表示するプログラムを作成せよ。入力される数値として、正の整数値に対応すること。'.

'ある携帯電話会社の料金制度は、データ通信1パケットあたり0.11円の従量制だが、54000パケット以上はどれだけ使用しても5940円となる。なお1円未満の料金は切り捨てとなる。このとき、1ヶ月の使用パケット数を入力すると料金を表示するプログラムを作成せよ。入力される数値として、正の整数値に対応すること。' :-
        '1ヶ月の使用パケット数を入力すると'(_パケット数),
        'ある携帯電話会社の料金制度は、データ通信1パケットあたり0,11円の従量制だが、54000パケット以上はどれだけ使用しても5940円となる。なお1円未満の料金は切り捨てとなる。'(_パケット数,_料金),
        料金を表示する(_料金).

'1ヶ月の使用パケット数を入力すると'(_パケット数) :-
        整数を得る('1ヶ月のパケット数',_パケット数 >= 0,_パケット数).

'ある携帯電話会社の料金制度は、データ通信1パケットあたり0.11円の従量制だが、54000パケット以上はどれだけ使用しても5940円となる。なお1円未満の料金は切り捨てとなる。'(_パケット
        '1ヶ月の使用パケット数を入力すると'(_パケット数),
        'ある携帯電話会社の料金制度は、データ通信1パケットあたり0.11円の従量制だが、54000パケット以上はどれだけ使用しても5940円となる。なお1円未満の料金は切り捨てとなる。'(_パケット数,_料金),
        料金を表示する(_料金).

'1ヶ月の使用パケット数を入力すると'(_パケット数) :-
        整数を得る('1ヶ月の使用パケット数',_パケット数 >= 0,_パケット数).

'ある携帯電話会社の料金制度は、データ通信1パケットあたり0.11円の従量制だが、54000パケット以上はどれだけ使用しても5940円となる。なお1円未満の料金は切り捨てとなる。'(_パケット数,_料金) :-
        '54000パケット以上はどれだけ使用しても5940円となる。'(_パケット数,_料金),!.
'ある携帯電話会社の料金制度は、データ通信1パケットあたり0.11円の従量制だが、54000パケット以上はどれだけ使用しても5940円となる。なお1円未満の料金は切り捨てとなる。'(_パケット数,_料金) :-
        'データ通信1パケットあたり0.11円の従量制だが、1円未満の料金は切り捨てとなる。'(_パケット数,_料金).

'54000パケット以上はどれだけ使用しても5940円となる。'(_パケット数,5940) :-
        _パケット数 >= 54000.

'データ通信1パケットあたり0.11円の従量制だが、1円未満の料金は切り捨てとなる。'(_パケット数,_料金) :-
        _料金 is floor(0.11 * _パケット数).

料金を表示する(_料金) :-
        writef('料金は %t 円です。\n',[_料金]).