いろんな言語で宿題スレ 第三編at TECHいろんな言語で宿題スレ 第三編 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト555:デフォルトの名無しさん 10/02/01 16:01:21 http://pc12.2ch.net/test/read.cgi/tech/1263824755/406 # [1] 授業単元：プログラミング応用演習 # [2] 問題文(含コード&リンク)： http://mikilab.doshisha.ac.jp/dia/research/report/2008/1118/002/report20081118002.html # [5] その他の制限： ライブラリは使わず。問題文のリンク先のプログラム(DIRECT)を組む。 # よろしくお願いします。できれば解説を付けてくださると助かります。 [2]のサイトをコピーすることは困難でした。直接参照してください。 556:デフォルトの名無しさん 10/02/01 17:07:57 >>537 % Prolog (その一) % consult/1,reconsult/1,assertz/1,retract/1,clause/2,listing/1 を最終的に使用します。 % 実務ではもっとずっと丁寧にチェックしながら進みます。ここでは簡単に 住所の登録 :- 名字は(_名字), 名前は(_名前), 郵便番号は(_郵便番号), 住所は(_住所), 電話番号は(_電話番号), メールアドレスは(_メールアドレス), 住所の登録((_名字,_名前,_郵便番号,_住所,_電話番号,_メールアドレス),!. 住所の登録(_名字,_名前,_郵便番号,_住所,_電話番号,_メールアドレス) :- \+(住所録(_名字,_名前,_郵便番号_1,_住所_1,_電話番号_1,_メールアドレス_1)), assertz(住所録(_名字,_名前,_郵便番号,_住所,_電話番号,_メールアドレス)), write('登録を完了しました\n'),!. 住所の登録(_名字,_名前,_郵便番号,_住所,_電話番号,_メールアドレス) :- 住所録(_名字,_名前,_郵便番号_1,_住所_1,_電話番号_1,_メールアドレス_1), この氏名は既に登録がありますが(_名字,_名前,_郵便番号_1,_住所_1,_電話番号_1,_メールアドレス_1,_郵便番号,_住所,_電話番号,_メールアドレス),!. この氏名は既に登録がありますが(_名字,_名前,_郵便番号_1,_住所_1,_電話番号_1,_メールアドレス_1,_郵便番号,_住所,_電話番号,_メールアドレス) :- write_formatted('%t %tという氏名は以下の通り既に登録がありますが\n%t %t %t%t %t %t',[_名字,_名前,_名字,_名前,_郵便番号_1,_住所_1,_電話番号_1,_メールアドレス_1]), write('別人と考えて登録してよいでしょうか Y or N でお答えください : '), get_line(Line), この氏名は既に登録がありますが(Line,_名字,_名前,_郵便番号,_住所,_電話番号,_メールアドレス). 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch