このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1339338438/17
#  {1] 授業単元:プログラミング演習  
#  [2] 問題文:  
#  http://ime.nu/codepad.org/hz40AN0p 
#  上記のプログラムを参考にしてprintf("*")とprintf("+") 
#  を使用して下記の模様を出力するプログラムを、for文を利用して作成せよ。 
#  図の上半分と下半分を別々に作成せよ。 

'for文を利用して"http://nojiriko.asia/prolog/c158_18_zu.html"の模様を出力する。図の上半分と下半分を別々に作成せよ。' :-
        for文を利用して図の上半分を作成する(1),
        for文を利用して図の下半分を作成する(4).

for文を利用して図の上半分を作成する(_i) :-
        _i > 4,!.
for文を利用して図の上半分を作成する(1) :-
        write('*+\n'),
        for文を利用して図の上半分を作成する(2),!.
for文を利用して図の上半分を作成する(_i) :-
        write(*),
        '2個目の星以降の作成'(_i),
        _i_2 is _i + 1,
        for文を利用して図の上半分を作成する(_i_2).

for文を利用して図の下半分を作成する(1) :-
        write('*+\n'),!.
for文を利用して図の下半分を作成する(_i) :-
        write(*),
        '2個目の星以降の作成'(_i),
        _i_2 is _i - 1,
        for文を利用して図の上半分を作成する(_i_2).

'2個目の星以降の作成'(_i) :-
        _i_1 is _i - 1,
        for(1,_j,_i_1),
        write('**'),
        _j = _i_1,
        write('+\n').