10/01/16 06:45:46
>>269
% Prolog
ホワイトプラン基本使用料・通話料(_通話料 円,_基本使用料・通話料 円) :-
_基本使用料・通話料 is 980 + _通話料.
ホワイトプランメールウェブ利用料金(0 円).
パケット料金(_パケット,_パケット料金 円) :-
'S!ベーシックパック(i)'(_パケット料金_1 円),
パケット定額フル(_パケット,_パケット料金_2 円),
_パケット料金 is _パケット料金_1 + _パケット料金_2,!.
'S!ベーシックパック(i)'(315 円).
パケット定額フル(_パケット,1029 円) :- _パケット =< 12250,!.
パケット定額フル(_パケット,_パケット料金 円) :-
_パケット > 12250,
_パケット =< 71250,
_パケット料金 is (_パケット - 12250) * 0.084 + 1029,!.
パケット定額フル(_パケット,5985 円) :- _パケット > 71250,!.