このディレクトリの索引
#  出題場所 :: http://toro.2ch.net/test/read.cgi/tech/1381909900/505
#  [1] 授業単元:プログラミング 
#  [2] 問題文(含コード&リンク): 
#   キーボードから正負の整数をデタラメに入力し、整数のみを配列に格納し、その個数が5個になったら入力を受け付けず、その5つの正の整数の和と平均を求めるプログラムを作れ、平均は小数点以下一位まで求めろ 
#  

'キーボードから正負の整数をデタラメに入力し、正の整数のみを配列に格納し、その個数が5個になったら入力を受け付けず、その5つの正の整数の和と平均を求めるプログラムを作れ、平均は小数点以下一位まで求めろ'(_5つの正の整数の和,_5つの正の整数の平均) :-
'キーボードから正負の整数をデタラメに入力し、正の整数のみを配列に格納し、その個数が5個になったら入力を受け付けず、'([],_5つの正の整数ならび),
'その5つの正の整数の和と平均を求めるプログラムを作れ、平均は小数点以下一位まで求めろ'(_5つの正の整数ならび,_5つの正の整数の和,_5つの正の整数の平均).

'キーボードから正負の整数をデタラメに入力し、正の整数のみを配列に格納し、その個数が5個になったら入力を受け付けず、'(_正の整数ならび,_正の整数ならび) :-
'その個数が5個になったら入力を受け付けず、'(_正の整数ならび),!.
'キーボードから正負の整数をデタラメに入力し、正の整数のみを配列に格納し、その個数が5個になったら入力を受け付けず、'(_正の整数ならび_1,_正の整数ならび) :-
'キーボードから正負の整数をデタラメに入力し、正の整数のみを配列に格納し、その個数が5個になるまで入力を続ける'(_正の整数ならび_1,_正の整数ならび).

'その個数が5個になったら入力を受け付けず、'(_正の整数ならび) :-
length(_正の整数ならび,5).

'キーボードから正負の整数をデタラメに入力し、正の整数のみを配列に格納し、その個数が5個になるまで入力を続ける'(_正の整数ならび_1,_正の整数ならび) :-
'キーボードから正負の整数をデタラメに入力し、'(_整数),
'正の整数のみを配列に格納し、'(_整数,_正の整数ならび_1,_正の整数ならび_2),
'キーボードから正負の整数をデタラメに入力し、正の整数のみを配列に格納し、その個数が5個になったら入力を受け付けず、'(_正の整数ならび_2,_正の整数ならび).

'キーボードから正負の整数をデタラメに入力し、'(_整数) :-
行入力(_行),
'診断 :: 整数'(_行,_整数),!.
'キーボードから正負の整数をデタラメに入力し、'(_整数) :-
'キーボードから正負の整数をデタラメに入力し、'(_整数).

'診断 :: 整数'(_行,_整数) :-
read_term_from_atom(_行,_整数,[]),
integer(_整数).

'正の整数のみを配列に格納し、'(_整数,_正の整数ならび_1,_正の整数ならび_2) :-
_整数 >= 0,
append(_正の整数ならび_1,[_整数],_正の整数ならび_2).
'正の整数のみを配列に格納し、'(_整数,_正の整数ならび_1,_正の整数ならび_1) :-
_整数 < 0.

'その5つの正の整数の和と平均を求めるプログラムを作れ、平均は小数点以下一位まで求めろ'(_5つの正の整数ならび,_5つの正の整数の和,_5つの正の整数の平均) :-
sum_list(_5つの正の整数ならび,_5つの正の整数の和),
_5つの正の整数の平均 is floor((_5つの正の整数の和 / 5)  * 10 + 0.5) / 10.

行入力(_行) :-
read_line_to_codes(user_input,Codes),
atom_codes(_行,Codes).