このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1284632294/921
#  質問にきましたお邪魔します。 
#  [1] Cプログラミング 
#  [2] 問題文(含コード&リンク): 数問あるのでリンクからお願いします。 
#  http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10941.txt 
#  
# 
# 問1. 3つの整数をキーボードから入力しその最大値を画面に表示するプログラム。
# 

'3つの整数をキーボードから入力しその最大値を画面に表示する' :-
        整数を得る(N1),
        整数を得る(N2),
        整数を得る(N3),
        append(L0,[N|R],[N1,N2,N3]),
        append(L0,R,[M1,M2]),
        _最大値 >= M1,
        _最大値 >= M2,
        write_formatted('最大値は %t です\n',[_最大値]).

整数を得る(N) :-
        write('整数を入力してください : '),
        get_line(Line),
        整数を得るための診断(Line,N),!.
整数を得る(N) :- 整数を得る(N).

整数を得るための診断(Line,N) :-
        atom_to_term(Line,N,_),
        integer(N),!.
整数を得るための診断(Line,N) :-
        write_formatted('%t からは整数を得ることができません\n再入力をお願いします\n',[Line]),
        fail.