このディレクトリの索引

# 出典 :: C/C++の宿題片付けます 127代目 #592 # [1] 授業単元: C # [2] 問題文(含コード&リンク):入力した文字の種類を表示するプログラムを作成せよ。ただし、表示は次に従うとする # 入力キーA〜Z 表示メッセージ 英大文字です # 入力キーa〜z 表示メッセージ  英小文字です # 入力キー0〜9 表示メッセージ  数字です # 上記以外    表示メッセージ  その他のキャラクターです '入力した文字の種類を表示する。ただし、表示は次に従うとする。'(_文字) :- 入力した文字の種類を(_文字,_文字の範疇), '表示する。ただし、表示は次に従うとする。'(_文字の範疇),!. 入力した文字の種類を(_文字,_文字の範疇) :- 文字の範疇(_文字,_文字の範疇). 文字の範疇(_文字,'入力キーA〜Z') :- '入力キーA〜Z'(_文字). 文字の範疇(_文字,'入力キーa〜z') :- '入力キーa〜z'(_文字). 文字の範疇(_文字,'入力キー0〜9') :- '入力キー0〜9'(_文字). 文字の範疇(_文字,上記以外) :- 上記以外(_文字). '入力キーA〜Z'(_文字) :- member(_文字,['A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z']). '入力キーa〜z'(_文字) :- member(_文字,[a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z]). '入力キー0〜9'(_文字) :- member(_文字,['0','1','2','3','4','5','6','7','8','9']). 上記以外(_文字) :- '文字の範疇は入力キーA〜Zではない'(_文字), '文字の範疇は入力キーa〜zではない'(_文字), '文字の範疇は入力キー0〜9ではない'(_文字). '文字の範疇は入力キーA〜Zではない'(_文字) :- \+(文字の範疇(_文字,'入力キーA〜Z')). '文字の範疇は入力キーa〜zではない'(_文字) :- \+(文字の範疇(_文字,'入力キーa〜z')). '文字の範疇は入力キー0〜9ではない'(_文字) :- \+(文字の範疇(_文字,'入力キー0〜9')). '表示する。ただし、表示は次に従うとする。'(_文字の範疇) :- 表示は次に従うとする(_文字の範疇,_表示メッセージ), 表示する(_表示メッセージ). 表示は次に従うとする('入力キーA〜Z',英大文字です). 表示は次に従うとする('入力キーa〜z',英小文字です). 表示は次に従うとする('入力キー0〜9',数字です). 表示は次に従うとする(上記以外,その他のキャラクターです). 表示する(_表示メッセージ) :- writef('%w\n',[_表示メッセージ]).