このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1289913298/273
#  [1] 授業単元:プログラミング 
#  [2] 問題文 
#  問題2.12 個の整数を入力し、それらの 3 倍の数値を表示するプログラムを作成しなさい。 
#  ただし、 
#  ・入力した整数は、4 行 3 列の 2 次元配列に格納しなさい。 
#  ・配列の作成と表示にはループ制御を使用すること。 
#  ・下記の実行結果になるようにしなさい。 
#          Column1 Column2 Column3 
#  ------------------------------------ 
#  Row1 :        3        6        9 
#  Row2 :      300      600      900 
#  Row3 :     3000     6000     9000 
#  Row4 :    30000    60000    90000 
#  

'12 個の整数を入力し、それらの 3 倍の数値を表示する' :-
        '12 個の整数を入力し'(_12個の整数ならび),
        '3倍にしながら3個組にまとめる'(_12個の整数ならび,_3個組ならび),
        write('------------------------------------\n'),
        行見出し付き出力(1,_3個組ならび).

'3倍にしながら3個組にまとめる'([],[]) :- !.
'3倍にしながら3個組にまとめる'([A,B,C|R1],[[A3,B3,C3]|R2]) :-
        A3 is A * 3,
        B3 is B * 3,
        C3 is C * 3,
        '3倍にしながら3個組にまとめる'(R1,R2).

行見出し付き出力(_,[]) :- !.
行見出し付き出力(N,[[A,B,C]|R]) :-
        write_formatted('Row%t : %8d %8d %8d\n',[N,A,B,C]),
        N2 is N + 1,
        行見出し付き出力(N2,R).

'12 個の整数を入力し'(_12個の整数ならび) :-
        write('12個の整数をカンマ区切りで一行で入力してください : '),
        get_split_line([','],_12個の整数ならび),
        すべてが整数(_12個の整数ならび),!.

すべてが整数([]) :- !.
すべてが整数([N|R]) :- integer(N),すべてが整数(R).