このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1276810079/523
#  [1] 授業単元: Visual Studio 入門  
#  [2] 問題文 3問ほどあるのでリンクを  
#  http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10782.txt  
#  
# 問題1
# 下に示すように,非負の整数値を読み込んで,その数を逆順に表示するプログラムを作成せ
# よ.なお,負の値を読み込んだ場合は,再入力を促すメッセージを表示すること.
# 
# 
# 非負の整数を入力してください: 1963
# 1963 を逆から読むと3691 です.
# 

'非負の整数値を読み込んで,その数を逆順に表示する' :-
        催促付き整数入力('非負の整数を入力してください: ',N),
        number_chars(N,L1),
        reverse(L1,L2),
        number_chars(L2,N2),
        write_formatted(' %t を逆から読むと%t です.\n',[N,N2]).

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

'非負の整数値を読み込んで,その数を逆順に表示する' :-
        催促付き整数入力('非負の整数を入力してください: ',N),
        非負の整数値から逆順整数を得る(N,0,N2),
        write_formatted(' %t を逆から読むと%t です.\n',[N,N2]).

非負の整数値から逆順整数を得る(0,X,X).
非負の整数値から逆順整数を得る(N,Y1,X) :-
        Y2 is Y1 * 10 + (N mod 10),
        N1 is N // 10,
        非負の整数値から逆順整数を得る(N1,Y2,X).