このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1335517816/390
#  [1] 授業単元: 初級プログラミング演習 
#  [2] 問題文:反復処理 
#  異なる整数2つ、a,bを入力。実行例に記すように aからbまで順に数字を表示するプログラムを作成しなさい 
#  【実行例】 
#  整数を2つ入力してください 
#  a=22, b=28 
#  22 
#  23 
#  24 
#  25 
#  26 
#  27 
#  28 
#   
#  

'異なる整数2つ、a,bを入力。aからbまで順に数字を表示する' :-
        '異なる整数2つ、a,bを入力'(_a,_b),
        aからbまで順に数字を\表示する(_a,_b).

'異なる整数2つ、a,bを入力'(_a,_b) :-
        整数aの入力(_a),
        整数bの入力(_a,_b).

整数aの入力(_a) :-
        write('整数aを入力してください : '),
        get_integer(_a),!.

整数bの入力(_a,_b) :-
        writef('整数aとは異なる整数bを入力してください : '),
        get_integer(_b),
        整数b入力診断(_a,_b),!.
整数bの入力(_a,_b) :-
        整数bの入力(_a,_b).

整数b入力診断(_a,_b) :-
        \+(_a = _b).

aからbまで順に数字を表示する(_a,_b) :-
        for(_a,N,_b),
        writef('%t\n',[N]),
        N = _b.


%  for/3