このディレクトリの索引
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 
#  
# 
# 問2.  キーボードから実数を1つ入力。10倍した数の整数部だけをint型の変数に代入して表示するプログラム。
# //int型の変数に〜というのがよくわからなかったです
# 

'キーボードから実数を1つ入力。10倍した数の整数部だけをint型の変数に代入して表示する' :-
        実数を得る(_実数),
        _10倍した数の整数部 is truncate(_実数 * 10),
        write_formatted('10倍した数の整数部は %t です\n',[_10倍した数の整数部]).

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

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