このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1312201995/614
#  [1] 授業単元:アルゴリズム 
#  [2] 問題文(含コード&リンク):  
#  かけ算九九の 20 段までをファイルに書き出すプログラムを作成せよ. 
#  (例えば書き出すファイルを output.txt とすると, プログラム実行後に output.txt をメモ帳などで開くと, かけ算九九の 20 段までがファイルに書かれている.  
#  

'かけ算九九の 20 段までをファイルに書き出す'(_出力ファイル) :-
        open(_出力ファイル,write,Outstream),
        見出し,
        '20 段までをファイルに書き出す'(Outsream),
        close(Outstream).

見出し(Outstream) :-
        write(Outstream,'    '),
        for(1,N,9),
        writef(Outstream,'%3r ',[N]),
        N = 9,!.

'20 段までをファイルに書き出す'(Outsream) :-
        for(1,M,20),
        行表示(Outstream,M),
        write(Outstream,'\n'),
        M = 20,

行表示(Outstream,M) :-
        for(1,N,9),
        S is M * N,
        writef(Outstream,'%3r: ',[S]),
        N = 9,!.