このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1260532772/206
#  [1] 授業単元: プログラミング1 
#  [2] 問題文(含コード&リンク): http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10285.txt 
#  
# 必修課題2
# 10000以下の任意の数を入力して、10000からその数を引くことのできる回数を調べるプログラムを作成せよ。
# for文とインクリメント演算子、あるいはデクリメント演算子を用いなさい。実行結果の例を以下に示す。
# ------------------------------------------------
# 10000以下の数を入力して下さい:1000
# 10000から10回ひくことができます。
# ------------------------------------------------

'10000以下の任意の数を入力して、10000からその数を引くことのできる回数を調べる'(_回数) :-
        催促付き整数入力('10000以下の数を入力して下さい:',N),
        '10000からその数を引くことのできる回数を調べる'(0,10000,N,_回数).

'10000からその数を引くことのできる回数を調べる'(_回数,M,N,_回数) :- M < N,!.
'10000からその数を引くことのできる回数を調べる'(_回数1,M,N,_回数) :-
        M1 is M - N,
        _回数2 is _回数1 + 1,
        '10000からその数を引くことのできる回数を調べる'(_回数2,M2,N,_回数).