このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1294061094/782
#  [1] 授業単元:プログラミング演習 2 
#  [2] 問題文(含コード&リンク) 
#  
#  キーボードから入力した整数を、2倍して表示するプ ログラムを作成しなさい。ただし以下の要件を満たすこと。
#  calcx2 関数の定義・・・ void calcx2(void) ?  引数ならびに戻り値はなし。?  入力値を 2 倍する
#  main 関数の定義?  キーボードから整数の入力?  calx2 関数の呼出し?   結果の表示

program :-
        キーボードからの整数入力(_整数),
        整数を2倍して(_整数,_2倍した整数),
        結果の表示(_2倍した整数).

キーボードからの整数入力(_整数) :-
        get_line(Line),
        キーボードからの整数入力(Line,_整数),!.
キーボードからの整数入力(_整数) :-
        キーボードからの整数入力(_整数).

キーボードからの整数入力(Line,_整数) :-
        atom_to_term(Line,_整数,_),
        integer(_整数),!.
キーボードからの整数入力(Line,_整数) :-
        write_formatted('入力された文字列 %t から整数は得られませんでした\n',[Line]),
        fail.

整数を2倍して(_整数,_2倍した整数) :-
        _2倍した整数 is _整数 * 2.

結果の表示(_2倍した整数) :-
        write_formatted('%t\n',[_2倍した整数]).