このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1260532772/6
#  問題5 
#  英字アルファベット大文字を入力すると、その文字の小文字が表示されるようなプログラムを作成せよ。実行結果の例を以下に示す。 
#  ------------------------------------------------ 
#  アルファベットの大文字を入力して下さい:A 
#  小文字はaです。 
#  ------------------------------------------------ 
# 
# 
大文字小文字の対応表を定義する(_対応表述語名) :-
    abolish(_対応表述語名/2),
    for(65,N,90),
    N2 is N + 32,
    char_code(_大文字,N),
    char_code(_小文字,N2),
    P =.. [_対応表述語名,_大文字,_小文字],
    assertz(P),
    N=90,!.

:- 大文字小文字の対応表を定義する('A,a...Z,z').

英字アルファベット大文字を入力すると、その文字の小文字が表示される :-
    write('大文字をいれてください :'),
    rawmode,
    get_char(CC),
    'A,a...Z,z'(CC,Cc),
    put_char(Cc),
    norawmode,
    write_formatted('小文字は%tです。\n',[Cc]).