このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1307166756/617
#  【1】C言語 
#  【2】キャラクタでピラミッドを表示するプログラムを作成せよ 
#  実行結果 
#  何段にしますか? 
#  7 
#   
#        # 
#       ### 
#      ##### 
#     ####### 
#    ######### 
#   ########### 
#  ############# 
#  【3】UNIXのC言語 
#  【4】6/17まで 
#  お願いします 
# 
# 

キャラクタでピラミッドを表示する :-
        何段にしますか(_段数),
        ピラミッドの表示(_段数,_段数).

何段にしますか(_段数) :-
        write('何段にしますか : '),
        readln([_段数]),
        integer(_段数),!.
何段にしますか(_段数) :-
        write('整数を入力してください。 '),
        何段にしますか(_段数).

ピラミッドの表示(0,_) :- !.
ピラミッドの表示(N,_段数) :-
        N1 is N - 1,
        for(1,M1,N1),
        write(' '),
        M1 = N1,
        N3 is (_段数 - N) * 2 + 1,
        for(1,M2,N3),        
        write('#'),
        M2 = N3,
        write('\n'),
        ピラミッドの表示(N1).