このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1294061094/277
#  [1] 授業単元:プログラミング言語(C) 
#  [2] 問題文(含コード&リンク): 
#  Cプログラミングの基礎[新訂版]発行:サイエンス社 著:蓑原隆より 
#  P48 3.1 3.2 3.3 3.4  P55 4.1 P88 5.1 P104 6.1 6.2 
#  http://ime.nu/upload.jpn.ph/upload/img/u72273.jpg 
#  http://ime.nu/upload.jpn.ph/upload/img/u72276.jpg 
#  http://ime.nu/upload.jpn.ph/upload/img/u72274.jpg 
#  http://ime.nu/upload.jpn.ph/upload/img/u72275.jpg 
#  
#  4.1 入力された値が偶数だったら[even]、奇数だったら[odd]と
#  出力する処理を10回繰り返すプログラムをwhile文およびfor文を
#  使ってそれぞれ作成せよ。

'入力された値が偶数だったら[even]、奇数だったら[odd]と出力する処理を10回繰り返す' :-
        length(Ln,10),
        '入力された値が偶数だったら[even]、奇数だったら[odd]と出力する'(Ln).

'入力された値が偶数だったら[even]、奇数だったら[odd]と出力する'([]) :- !.
'入力された値が偶数だったら[even]、奇数だったら[odd]と出力する'([_|Ln]) :-
        write('整数を入力してください : '),
        get_integer(_値),
        '偶数だったら[even]、奇数だったら[odd]と出力する'(_値),
        '入力された値が偶数だったら[even]、奇数だったら[odd]と出力する'(Ln).

'偶数だったら[even]、奇数だったら[odd]と出力する'(_値) :-
        偶数だったら(_値),
        write('[even]\n'),!.
'偶数だったら[even]、奇数だったら[odd]と出力する'(_値) :-
        奇数だったら(_値),
        write('[odd]\n'),!.

偶数だったら(_値) :-
        0 ia _値 mod 2.

奇数だったら(_値) :-
        1 is _値 mod 2.