- 647 名前：デフォルトの名無しさん mailto:sage [2010/02/09(火) 07:21:04 ]
- >>646
% Prolog 実際には、入力された項・要素の形式検査をしますが。
電話番号を10件登録する :-
write('引数として、顧客番号(２桁の数字)、顧客名(Yamadaなど姓のみ)、電話番号(09012345678の形式、ハイフンなしの三つの項をもつ複合項、電話番号を10件入力します\n'),
for(1,N,10),write_formatted('%t件目 : '),read(X),assertz(X),N=10.
顧客データの追加(_追加する項) :- assertz(_追加する項).
顧客データの削除(_追加する項) :- retract(_削除する項).
電話番号の検索(_顧客番号,_顧客名,_電話番号) :- 電話番号(_顧客番号,_顧客名,_電話番号).
