10/01/16 06:44:06
>>269
% Prolog (その一)
:- op(350,xf,円).
お客様データベース('長石 輝',ホワイトプラン通話料,2130).
お客様データベース('長石 輝',ホワイトプランメールウェブ利用料金,0).
お客様データベース('長石 輝',パケット使用量,47310).
iphoneのご利用料金(_お客様名,_ご利用料金 円) :-
お客様データベース(_お客様名,ホワイトプラン通話料,_通話料),
お客様データベース(_お客様名,ホワイトプランメールウェブ利用料金,_メール
ウェブ利用料金),
お客様データベース(_お客様名,パケット使用量,_パケット使用量),
'ホワイトプラン(i)'(_通話料,_メールウェブ利用料金,_ホワイトプラン料金
円),
パケット料金(_パケット使用量,_パケット料金 円),
_ご利用料金 is _ホワイトプラン料金 + _パケット料金.
'ホワイトプラン(i)'(_ホワイトプラン料金 円) :-
ホワイトプラン基本使用料・通話料(_通話料 円,_基本使用料・通話料 円),
ホワイトプランメールウェブ利用料金(_メールウェブ利用料金 円),
_ホワイトプラン料金 is _基本使用料・通話料 + _メールウェブ利用料金,!.
ホワイトプラン基本使用料・通話料(_通話料 円,_基本使用料・通話料 円) :-
_基本使用料・通話料 is 980 + _通話料.