このディレクトリの索引

# 出典 :: #335 # [1] 授業単元: プログラミング演習 # [2] 問題文(含コード&リンク): http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9935.txt # 問題文 # # 以下のプログラムを作成せよ。 # プログラムを実行すると、「文字列を入力してください」と表示されるので、文字列 # strを入力する。次に「どの文字を削除しますか?」と表示されるので、削除したい文字 # cを入力する。すると文字列strから文字cを削除した文字列を表示し、「削除した # 文字は?文字です」と出力する。 'プログラムを実行すると、「文字列を入力してください」と表示されるので、文字列strを入力する。次に「どの文字を削除しますか?」と表示されるので、削除したい文字cを入力する。すると文字列strから文字cを削除した文字列を表示し、「削除した文字は?文字です」と出力する。' :- '「文字列を入力してください」と表示されるので、文字列strを入力する。'(_str), '次に「どの文字を削除しますか?」と表示されるので、削除したい文字cを入力する。'(_c), 'すると文字列strから文字cを削除した文字列を表示し、「削除した文字は?文字です」と出力する。'(_str,_c). '「文字列を入力してください」と表示されるので、文字列strを入力する。'(_str) :- write('文字列を入力してください : '), 行入力(_str). 行入力(_行) :- read_line_to_codes(current_input,_文字コードならび), atom_codes(_行,_文字コードならび). '次に「どの文字を削除しますか?」と表示されるので、削除したい文字cを入力する。'(_c) :- '次に「どの文字を削除しますか?」と表示されるので、', '削除したい文字cを入力する。'(_c). '次に「どの文字を削除しますか?」と表示されるので、' :- write('どの文字を削除しますか? : '). '削除したい文字cを入力する。'(_c) :- get_char(_c). 'すると文字列strから文字cを削除した文字列を表示し、「削除した文字は?文字です」と出力する。'(_str,_c) :- 'すると文字列strから文字cを削除した文字列を表示し、'(_str,_c), '「削除した文字は?文字です」と出力する。'(_c). 'すると文字列strから文字cを削除した文字列を表示し、'(_str,_c) :- 文字列strから文字cを削除した文字列を(_str,_c,_文字列strから文字cを削除した文字列), writef('削除した文字列は %w\n',[_文字列strから文字cを削除した文字列]). 文字列strから文字cを削除した文字列を(_str,_c,_文字列strから文字cを削除した文字列) :- findall(_文字,( 文字列strからcではない文字を取り出す(_str,_c,_文字)),_文字列strから文字cを削除した文字ならび), atom_chars(_文字列strから文字cを削除した文字列,_文字列strから文字cを削除した文字ならび). 文字列strからcではない文字を取り出す(_str,_c,_文字) :- sub_atom(_str,_,1,_,_文字), \+(文字 = _c). '「削除した文字は?文字です」と出力する。'(_c) :- writef('削除した文字は %w 文字です\n',[_c]),!.