このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1258158172/280
#  [1] 授業単元:プログラミング演習 
#  [2] 問題文: http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10157.txt
# 
# 以下のようなACIIコード表を画面に表示するプログラムを作成、コンパイル、
# 実行しなさい。
# ただし、for文を必ず使用すること。またASCIIコード0x7Fは制御文字であるので、
# break文またはcontinue文を使用して回避すること。
#
#   |0 1 2 3 4 5 6 7 8 9 A B C D E F
#---+--------------------------------
# 2 |  ! " # $ % & ' ( ) * + , - . /
# 3 |0 1 2 3 4 5 6 7 8 9 : ; < = > ?
# 4 |@ A B C D E F G H I J K L M N O
# 5 |P Q R S T U V W X Y Z [ \ ] ^ _
# 6 |' a b c d e f g h i j k l m n o
# 7 |p q r s t u v w x y z { | } ~

文字コード表の作成 :-
    write('  |0 1 2 3 4 5 6 7 8 9 A B C D E F'\n'),
    write('--+'),for(0,U2,16),write('--'),U2=16,nl,
    for(2,N,7),
    write_formatted('%t |',[N]),
    for(0,M,15),
    印字可能文字の表示(N,M),
    M = 15,
    nl,
    N = 7.

印字可能文字の表示(7,15) :- !.
印字可能文字の表示(N,M) :-
    N >= 32,N =< 126,
    Code is N * 16 + M,
    char_code(A,Code),
    write_formatted('%t ',[A]),!.