このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1335517816/379
#  {1] 授業単元:プログラミング演習  
#  [2] 問題文:  
#  http://ime.nu/codepad.org/gFfm4dhN 
#  5人の身長をキーボートから入力するとその平均身長が出力されるよう、上記のプログラムを変更しなさい。 
#  

'5人の身長をキーボートから入力するとその平均身長が出力される' :-
        '5人の身長をキーボートから入力すると'(_5人の身長),
        その平均身長が出力される(_5人の身長,0).

'5人の身長をキーボートから入力すると'(_5人の身長) :-
        write('5人の身長をカンマ区切りで入力してください : '),
        readln(_5人の身長),
        '5人の身長診断'(_5人の身長),!.
'5人の身長をキーボートから入力すると'(_5人の身長) :-
        '5人の身長をキーボートから入力すると'(_5人の身長).

'5人の身長診断'([]).
'5人の身長診断'([_身長|R]) :-
        number(_身長),
        _身長 > 0.0,
        '5人の身長診断'(R).

その平均身長が出力される([],S) :-
        _平均身長 is S / 5,
        writef('平均身長 = %t\n',[_平均身長]).
その平均身長が出力される([_身長|R],S1) :-
        S2 is S1 + _身長,
        その平均身長が出力される(R,S2).