このディレクトリの索引

# 出典 :: C/C++の宿題片付けます 129代目 #213 # [1] 授業単元:プログラミング # [2] 問題文(含コード&リンク): # 下に示すように,キーボードから文字列を読み込み,その文字列が # 回文(前から読んでも後ろから読んでも同じ)かどうかを判定するプログラムを # 作成せよ.なお,入力する文字列は半角の英数字および記号のみと仮定してよい. # # 文字列を入力してください: abcba # 回文です. 'キーボードから文字列を読み込み,その文字列が 回文(前から読んでも後ろから読んでも同じ)かどうかを判定するプログラムを 作成せよ.なお,入力する文字列は半角の英数字および記号のみと仮定してよい.' :- write('文字列を入力してください '), 'キーボードから文字列を読み込み,その文字列が回文(前から読んでも後ろから読んでも同じ)かどうかを判定する'. 'キーボードから文字列を読み込み,その文字列が回文(前から読んでも後ろから読んでも同じ)かどうかを判定する' :- 回文読み込みに成功したら回文ですと表示する,!. 'キーボードから文字列を読み込み,その文字列が回文(前から読んでも後ろから読んでも同じ)かどうかを判定する' :- 回文読み込みに失敗したら回文ではないと表示する. 回文読み込みに成功したら回文ですと表示する :- 回文読み込み, 回文ですと表示する. 回文読み込み :- get_char(_文字), 回文読み込み(_文字,[],X,X). 回文読み込み('\n',X,X,[]). 回文読み込み(_文字,L,_逆順文字ならび,Z) :- \+(_文字 = '\n'), 改行が入力されるまで回文を読み込んで行く(_文字,L,_逆順文字ならび,Z). 改行が入力されるまで回文を読み込んで行く(_文字,L,_逆順文字ならび,[_文字|R]) :- get_char(_次の文字), 回文読み込み(_次の文字,[_文字|L],_逆順文字ならび,R). 回文ですと表示する :- write('回文です\n'). 回文読み込みに失敗したら回文ではないと表示する :- write('回文ではありません\n').