このディレクトリの索引

# 出典 :: C/C++言語の宿題片付けます 150代目 #719 # これをプログラム実行時にキーボードから名前、年齢、電話番号を入力できるように変更したい # 'プログラム実行時にキーボードから名前、年齢、電話番号を入力して電話帳に追加する' :- 電話帳追加. 電話帳追加 :- repeat, 催促付き行入力('1..追加 9..終了 ',_選択), '名前・年齢・電話番号を入力する'(_選択), _選択 = '9'. '名前・年齢・電話番号を入力する'('9') :- !. '名前・年齢・電話番号を入力する'('1') :- '名前・年齢・電話番号を得て電話帳に追加する'. '名前・年齢・電話番号を得て電話帳に追加する' :- '名前・年齢・電話番号を得て'(_名前,_年齢文字列,_電話番号), 電話帳に追加(_名前,_年齢文字列,_電話番号). '名前・年齢・電話番号を得て'(_名前,_年齢文字列,_電話番号) :- findall(_値, '名前・年齢・電話番号の順に値を得る'(_値),[_名前,_年齢文字列,_電話番号]). '名前・年齢・電話番号の順に値を得る'(_値) :- member(_項目名,[名前,年齢,電話番号]), atom_concat(__項目名,' : ',_催促), 催促付き行入力(_催促,_値). 電話帳に追加(_名前,_年齢文字列,_電話番号) :- read_term_from_atom(_年齢文字列,_年齢,[]), assertz('電話帳'(_名前,_年齢文字列,_電話番号)),!. 催促付き行入力(_催促,_行) :- 催促付き(_催促), 行入力(_行). 催促付き(_催促) :- write(_催促), flush. 行入力(_行) :- read_line_to_codes(current_input,_文字コードならび), atom_codes(_行,_文字コードならび). 電話帳に追加(_名前,_年齢文字列,_電話番号) :- reconsult('電話帳.pro'), 年齢を整数に変換して節を追加する(_名前,_年齢文字列,_電話番号), 電話帳の保護. 年齢を整数に変換して節を追加する(_名前,_年齢文字列,_電話番号) :- atom_number(_年齢文字列,_年齢), assertz(電話帳(_名前,_年齢,_電話番号)). 電話帳の保護 :- tell('電話帳.pro'), listing(電話帳), told.