このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1289913298/241
#  [1] 授業単元:プログラミング演習  
#  [2] 問題文(含コード&リンク) 
#  問題1
1から10までの整数の表示をするプログラムを、 do-while 文とを使用して作成しなさい。 
#  < 実行例 >
1 2 3 4 5 6 7 8 9 10 

'1から10までの整数の表示をするプログラムを、 do-while 文とを使用して作成しなさい。' :-
        '1から10までの整数の表示をするプログラムを、 do-while 文とを使用して作成しなさい。'(1,10),
        nl,!.

'1から10までの整数の表示をするプログラムを、 do-while 文とを使用して作成しなさい。'(N,Max) :-
        write_formatted('%t ',[N]),
        N2 is N + 1,
        'do-while'(N2,Max).

'do-while'(N,Max) :-
        N =< Max,
        '1から10までの整数の表示をするプログラムを、 do-while 文とを使用して作成しなさい。'(N,Max),!.
'do-while'(_,_).