10/02/09 07:23:27
>>647 訂正 write_formatted/2の引数が目標で1個になってしまっているところがあった。
% Prolog 実際には、入力された項・要素の形式検査をしますが。
電話番号を10件登録する :-
write('引数として、顧客番号(２桁の数字)、顧客名(Yamadaなど姓のみ)、電話番号(09012345678の形式、ハイフンなしの三つの項をもつ複合項、電話番号を10件入力します\n'),
for(1,N,10),write_formatted('%t件目 : ',[N]),read(X),assertz(X),N=10.
顧客データの追加(_追加する項) :- assertz(_追加する項).
顧客データの削除(_追加する項) :- retract(_削除する項).
電話番号の検索(_顧客番号,_顧客名,_電話番号) :- 電話番号(_顧客番号,_顧客名,_電話番号).