このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1349527750/175
#  [1]C言語 
#  [2]問1. キーボードから正の整数を2 つ(x、y とする) 入力し、縦x 個、横y 個の文字'*' から 
#  なる長方形を表示するプログラムを多重ループを用いて作成せよ。 
#   
#  問2. キーボードから正の整数x を入力し、下記のように、一辺に'*' がx 個並んだ直角三角 
#  形が画面に出力されるプログラムを作成せよ。(x = 5 のときの例) 
#  ***** 
#  **** 
#  *** 
#  ** 
#  * 
#  [3]Linux 
#  gcc 
#  C言語 
#  [4]本日中でお願いします。 
# 
# 

'キーボードから正の整数''x'' を入力し、一辺に''*'' がx 個並んだ直角三角形が画面に出力される' :-
        'キーボードから正の整数''x'' を入力し'(_x),
        '一辺に''*'' がx 個並んだ直角三角形が画面に出力される'(_x).

'キーボードから正の整数''x'' を入力し'(_x) :-
        整数を得る(正の整数x,_x > 0,_x).

'一辺に''*'' がx 個並んだ直角三角形が画面に出力される'(_x) :-
        length(L,_x),
        all(L,'*'),
        '直角三角形が画面に出力される'(L).

'直角三角形が画面に出力される'(L) :-
        append(_,L2,L),
        atomic_list_concat(L2,A),
        writef('%t\n',[A]),
        L2 = ['*'].