このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1258158172/67
#  [1] 授業単元:プログラミング  
#  [2] 問題文(含コード&リンク):  
#  1から100までの数の合計を計算し、表示するプログラムを作成しなさい。 
#   
#   
#  キーボードから10人分の身長を順次、配列に記録し、全部を入力してから、10人の身長を表示しなさい。さらに合計と平均を計算して表示するプログラムを作成しなさい。 
#  配列を使う問題 
# 

1から100までの数の合計を計算し、表示する :-
    findsum(N,for(1,N,100),_合計),
    write(_合計).

findsum(_選択項,_項,_合計値) :-
    findall(_選択項,_項,_値ならび),
    '加算'(_値ならび,_合計値),
    !.

キーボードから10人分の身長を順次、配列に記録し、全部を入力してから、10人の身長を表示 :-
    キーボードから10人分の身長を順次、配列に記録し(L),
    '10人の身長を表示'(L),
    さらに合計と平均を計算して表示する(L).

キーボードから10人分の身長を順次、配列に記録し(L) :-
    findall(N,(for(1,M,10),get_integer(_身長)),L),

'10人の身長を表示'(L) :-
    member(_身長,L),
    write_formatted('%t\n',[_身長]),
    fail;
'10人の身長を表示'(_).

さらに合計と平均を計算して表示する(L) :-
    合計と平均を計算して表示する(L).

合計と平均を計算して表示する(L) :-
    findsum(L,_合計),
    findavg(L,_平均),
    write_formatted('合計は%t, 平均は%t\n',[_合計,_平均]).