このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1288531658/250
#  [1] 授業単元:プログラミング 
#  [2] 問題文(含コード&リンク):正の整数をキーボードから入力し、1からその整数までの和を計算し、出力するプログラムを組みなさい 
#  

正の整数をキーボードから入力し、1からその整数までの和を計算し、出力する :-
        正の整数をキーボードから入力し(_正の整数),
        1からその整数までの和を計算し(1,_正の整数,0,_和).

正の整数をキーボードから入力し(_正の整数) :-
        write('正の整数を入力してください : '),
        get_line(Line),
        キーボードからの入力診断(Line,_正の整数),!.
正の整数をキーボードから入力し(_正の整数) :-
        正の整数をキーボードから入力し(_正の整数).

キーボードからの入力診断(Line,_正の整数) :-
        atom_to_term(Line,_正の整数,_),
        integer(_正の整数),
        _正の整数 > 0,!.
キーボードからの入力診断(Line,_正の整数) :-
        write_formatted('入力された %t からは正の整数が得られませんでした。再入力をお願いします。\n',[Line]),
        fail.

1からその整数までの和を計算し(N,_正の整数,_和,_和) :- N > _正の整数,!.
1からその整数までの和を計算し(N,_正の整数,_和_1,_和) :-
        _和_2 is _和_1 + 1,
        N_2 is N + 1,
        1からその整数までの和を計算し(N_2,_正の整数,_和_2,_和).