このディレクトリの索引
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  
#  
# 問題2
# 下に示すように,非負の整数を次々と読み込んでいき,各値の二乗値の和を表示するプログ
# ラムを作成せよ.なお,整数の読み込みは,負の整数を読み込んだ段階で終了するものとし,
# その数の二乗値の和は加算しないものとする.
# 
# 整数を入力してください
# 整数1 : 3
# 整数2 : 5
# 整数3 : -1
# 二乗値の合計は34 です.
# 

'非負の整数を次々と読み込んでいき,各値の二乗値の和を表示する' :-
        write('整数を入力してください\n'),
        findsum(S,(非負の整数を次々と読み込んでいき(1,X),(X < 0,!,fail;S is X * X)),_二乗和),
        write_formatted('二乗値の合計は%t です.\n',[_二乗和]).

非負の整数を次々と読み込んでいき(N,X) :-
        write_formatted('整数%t : ',[N]),get_integer(X).
非負の整数を次々と読み込んでいき(N,X) :-
        N2 is N + 1,
        非負の整数を次々と読み込んでいき(N2,X).