このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1305867431/561
#  [1] 授業単元:C 
#  [2] 問題文(含コード&リンク): 
#  「*」の記号を利用して、入力した数字を等しい2辺に持つ、次のような直角二等辺三角形を表示するプログラムを作成しなさい  
#  

'「*」の記号を利用して、入力した数字を等しい2辺に持つ、次のような直角二等辺三角形を表示する'(_等しい2辺の長さ) :-
        for(1,N,_等しい2辺の長さ),
        for(1,M,N),
        星の表示(N,_等しい2辺の長さ,M,N),
        M = N,
        N = _等しい2辺の長さ.
        
星の表示(_,_,M,M) :-
        write('*'),nl,!.
星の表示(N,N,_,_) :- write('*').
星の表示(_,_,1,_) :- write('*'),!.
星の表示(_,_,_,_) :- write(' ').