このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1301553333/174
#  [1] 授業単元:画像処理 
#  [2] 問題文(含コード&リンク):アスキーコード(0x21~0x7eまで)表を出力をするプログラムを作りなさい 
#  

'アスキーコード(0x21~0x7eまで)表を出力をする' :-
        第一行目の列見出し,
        for(0,M,15),
        行見出し表示(M),
        for(2,N,7),
        Code is M * N,
        項目表示(Code),
        N = 7,
        nl,
        M = 15.

第一行目の列見出し :-
        write('   |'),
        for(2,N,7),
        '16進表記文字'(N,A),
        writef(' %t',[A]),
        N = 7,
        nl,!.

行見出し表示(N) :-
        '16進表記文字'(N,A),
        writef(' %t |',[A]),!.

項目表示(Code) :-
        Code >= 31,
        Code =< 126,
        char_code(C,Code),
        writef(' %t',[C]),!.
項目表示(_) :-
        write('   '),!.

'16進表記文字'(0,'0').
'16進表記文字'(1,'1').
'16進表記文字'(2,'2').
'16進表記文字'(3,'3').
'16進表記文字'(4,'4').
'16進表記文字'(5,'5').
'16進表記文字'(6,'6').
'16進表記文字'(7,'7').
'16進表記文字'(8,'8').
'16進表記文字'(9,'9').
'16進表記文字'(10,'A').
'16進表記文字'(11,'B').
'16進表記文字'(12,'C').
'16進表記文字'(13,'D').
'16進表記文字'(14,'E').
'16進表記文字'(15,'F').