このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1284632294/777
#  [1] 授業単元:プログラミング実習  
#  [2] 問題文(含コード&リンク):0x20から0x7Eまでの文字コード表を出力せよ。 
#  以下のようにすること。 
#   
#  Hex Dec 文字 
#  ------------ 
#   20 32 
#   21 33 ! 
#   22 34 " 
#   23 35 # 
#   途中略 
#   7D 125 } 
#   7E 126 ~ 
#   
#   

'0x20から0x7Eまでの文字コード表を出力する' :-
        write('Hex Dec 文字\n------------\n'),
        for(32,N,126),
        '16進数表示に変換'(N,_16進表示),
        char_code(_文字,N),
        write_formatted('%t %3d %t\n',[_16進表示,N,_文字]),
        N = 126.

'16進数表示に変換'(N,_16進表示) :-
        Div is N // 16,
        Mod is N mod 16,
        '16進文字'(Div,_16進文字_1),
        '16進文字'(Mod,_16進文字_2),
        atom_concat(_16進文字_1,_16進文字_2,_16進表示).

'16進文字'(N,_16進文字) :-
        N >= 0,
        N =< 9,
        number_chars(N,[_16進文字]),!.
'16進文字'(10,'A').
'16進文字'(11,'B').
'16進文字'(12,'C').
'16進文字'(13,'D').
'16進文字'(14,'E').
'16進文字'(15,'F').