このディレクトリの索引
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]本日中でお願いします。 
# 
# 

:- op(700,xfx,(::)).

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

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

'一辺に''*'' がx 個並んだ直角三角形が画面に出力される'(0) :- !.
'一辺に''*'' がx 個並んだ直角三角形が画面に出力される'(_x) :-
        _x :: write(*),
        nl,
        _x_1 is _x - 1,
        '一辺に''*'' がx 個並んだ直角三角形が画面に出力される'(_x_1).

_回数 :: P :-
        between(1,_回数,N),
        P,
        _回数 = N.