このディレクトリの索引

# 出典 :: C/C++の宿題片付けます 130代目 # 571 # [1] 授業単元: # [2] 問題文(含コード&リンク): # 米国への船便小包の郵便料金は以下の様に定められる。小包の重さを読み込み、その # 郵便料金を計算するプログラムを作成せよ。 # 但し、重量制限は20kg(20000g)までである。 # # 1000g以下  1800円 # 10000g以下 1000gごとに550円の割り増し # 20000g以下 1000gごとに350円の割り増し # (例・1000g 2900円  3001g 3450円  20000g 10250円) 米国への船便小包の郵便料金(_小包の重さ,_郵便料金) :- '1000g以下では1800円である'(_小包の重さ,_郵便料金). 米国への船便小包の郵便料金(_小包の重さ,_郵便料金) :- '1000gより重く10000g以下の場合は1000gごとに550円の割り増し'(_小包の重さ,_郵便料金). 米国への船便小包の郵便料金(_小包の重さ,_郵便料金) :- '1000gより重く20000g以下の場合は1000gごとに350円の割り増し'(_小包の重さ,_郵便料金). '1000g以下では1800円である'(_小包の重さ,1800) :- _小包の重さ > 0, _小包の重さ =< 1000. '1000gより重く10000g以下の場合は1000gごとに550円の割り増し'(_小包の重さ,_郵便料金) :- '1000gより重く10000g以下の場合は'(_小包の重さ), '1000gごとに550円の割り増し'(_小包の重さ,_郵便料金). '1000gより重く10000g以下の場合は'(_小包の重さ) :- _小包の重さ > 1000, _小包の重さ =< 10000. '1000gごとに550円の割り増し'(_小包の重さ,_郵便料金) :- 米国への船便小包の郵便料金(1000,_1000gまでの郵便料金), _郵便料金 is _1000gまでの郵便料金 + ((_小包の重さ - 1000) // 1000) * 550. '1000gより重く20000g以下の場合は1000gごとに350円の割り増し'(_小包の重さ,_郵便料金) :- '1000gより重く20000g以下の場合は'(_小包の重さ), '1000gごとに350円の割り増し'(_小包の重さ,_郵便料金). '1000gより重く20000g以下の場合は'(_小包の重さ) :- _小包の重さ > 10000, _小包の重さ =< 20000. '1000gごとに350円の割り増し'(_小包の重さ,_郵便料金) :- 米国への船便小包の郵便料金(10000,_10000gまでの郵便料金), _郵便料金 is _10000gまでの郵便料金 + ((_小包の重さ - 10000) // 1000) * 350,!.