このディレクトリの索引
#  
#  sum=Σ(n=1~100)n^2の計算結果とsumが初めて100以上になるnの値を表示せよ。 
#  

'sum=Σ(n=1~100)n^2の計算結果とsumが初めて100以上になるnの値を表示せよ。' :-
        'sum=Σ(n=1~100)n^2の計算結果と'(_sumの計算結果),
        sumが初めて100以上になるnの値を(1,0,_sumが初めて100以上になるnの値),
        'sum=Σ(n=1~100)n^2の計算結果とsumが初めて100以上になるnの値を表示する。'(_sumの計算結果,_sumが初めて100以上になるnの値).

'sum=Σ(n=1~100)n^2の計算結果と'(_sumの計算結果) :-
        findsum(S,(
                    between(1,100,_n),
                    S is _n ^ 2),
                _sumの計算結果).

sumが初めて100以上になるnの値を(_n,_sum,_sumが初めて100以上になるnの値) :-
        sum_2 is _sum + _n ^ 2,
        _n_2 is _n + 1,
        sumが初めて100以上になるnの値を(_n,_n_2,_sum,_sum_2,_sumが初めて100以上になるnの値).

sumが初めて100以上になるnの値を(_sumが初めて100以上になるnの値,_,_sum,_,_sumが初めて100以上になるnの値) :-
        _sum >= 100,!.
sumが初めて100以上になるnの値を(_n,_n_2,_sum,_sum_2,_sumが初めて100以上になるnの値) :-
        sumが初めて100以上になるnの値を(_n_2,_sum_2,_sumが初めて100以上になるnの値).


'sum=Σ(n=1~100)n^2の計算結果とsumが初めて100以上になるnの値を表示する。'(_sumの計算結果,_sumが初めて100以上になるnの値) :-
        writef('sumの計算結果 %t, sumが初めて100以上になるnの値 %t\n',[_sumの計算結果,_sumが初めて100以上になるnの値]).