このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1312201995/809
#  [1] 授業単元:C言語 繰り返し 
#  [2] 問題文(含コード&リンク): 
#  1.キーボードから正の整数を2つ(x  y)入力し、縦x個、横y個の文字'*'  
#  からなる長方形を表示するプログラムを多重ループを用いて作成せよ。 
#   
#  2.キーボードから入力した10進整数(0以上2^31 -1以下)を二進数にせよ 
#  for文を使うこと。例えば2で割った余りと商の値によって下の桁のビットから求める等 
#    
#  

'キーボードから正の整数を2つ(x  y)入力し、縦x個、横y個の文字'*'からなる長方形を表示する' :-
        'キーボードから正の整数を2つ(x  y)入力し'(_x,_y),
        '縦x個、横y個の文字'*'からなる長方形を表示する'(_x,_y).

'キーボードから正の整数を2つ(x y)入力し'(_x,_y) :-
        write('正の整数を2つ(x y) 入力してください : '),
        正の整数を入力(_x),
        正の整数を入力(_y),!.
'キーボードから正の整数を2つ(x y)入力し'(_x,_y) :-
        'キーボードから正の整数を2つ(x y)入力し'(_x,_y).

正の整数を入力(_正の整数) :-
        get_line(Line),
        正の整数入力検査(Line,_正の整数),!.

正の整数入力検査(Line,_正の整数) :-
        atom_to_term(Line,_正の整数,_),
        integer(_正の整数),
        _正の整数 > 0,!.
正の整数入力検査(Line,_正の整数) :-
        writef('入力された%tからは正の整数が得られません。もう一度最初から入力してください。\n',[Line]),
        fail.

'縦x個、横y個の文字'*'からなる長方形を表示する'(_x,_y) :-
        for(1,M,_x),
        for(1,N,_y),
        write(*),
        N = _y,
        nl,
        M = _x.