このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1312201995/984
#  [1] 授業単元:C++ 
#  [2] 問題文(含コード&リンク):文字を一文字入力して、 
#  入力された文字が、英字の小文字であるか、 
#  英字の大文字であるか、数字であるか、それ以外の文字であるか 
#  判別して、判別結果を表示するプログラムを作成せよ。 
#   [3.1] OS: Windows 7  
#   [3.2] コンパイラ名とバージョン:gcc-4.3.4  
#   [3.3] 言語: C++  
#  [4] 期限: 2011年11月5日 
#   
#  よろしくお願いします 
# 
# 

'文字を一文字入力して、入力された文字が、英字の小文字であるか、英字の大文字であるか、数字であるか、それ以外の文字であるか判別して、判別結果を表示する' :-
        '文字を一文字入力して、'(_入力された文字),
        '入力された文字が、英字の小文字であるか、英字の大文字であるか、数字であるか、それ以外の文字であるか判別して、'(_入力された文字,_判別結果),
        '判別結果を表示する'(_判別結果).

'文字を一文字入力して、'(_文字) :-
        write('文字を一文字入力して下さい : '),
        get_char(_文字).

'入力された文字が、英字の小文字であるか、英字の大文字であるか、数字であるか、それ以外の文字であるか判別して、'(_入力された文字,英字の小文字) :-
        _入力された文字 @>= 'a',
        _入力された文字 @=< 'z',!.
'入力された文字が、英字の小文字であるか、英字の大文字であるか、数字であるか、それ以外の文字であるか判別して、'(_入力された文字,英字の大文字) :-
        _入力された文字 @>= 'A',
        _入力された文字 @=< 'Z',!.
'入力された文字が、英字の小文字であるか、英字の大文字であるか、数字であるか、それ以外の文字であるか判別して、'(_入力された文字,数字) :-
        _入力された文字 @>= '0',
        _入力された文字 @=< '9',!.
'入力された文字が、英字の小文字であるか、英字の大文字であるか、数字であるか、それ以外の文字であるか判別して、'(_,それ以外の文字).

判別結果を表示する(それ以外の文字) :-
        writef('入力された文字は英字大文字・英字小文字或いは数字の何れでもありません。%tです',[それ以外の文字]),!.
判別結果を表示する(_判別結果) :-
        writef('入力された文字は、%tです。',[_判別結果]).