10/02/09 20:13:24
>>668
% Prolog (その一) 課題11-3
得点表を入力した上で平均点を付加して一覧表示する :-
write('入力人数は? >'),get_integer(_入力人数),
得点表入力(1,_入力人数,L),
得点表表示(L).
得点表入力(N,_入力人数,[]) :- N > _入力人数,!.
得点表入力(N,_入力人数,[[_名前,_得点ならび]|R]) :-
write_formatted('%t人目 受験科目数 :',[N]),get_integer(_受験科目数),
write('名前 :'),get_line(_名前),
科目別得点入力(_受験科目数,_得点ならび),
N2 is N + 1,
得点表入力(N2,_入力人数,R).
科目別得点入力(3,[_国語,_数学,_英語]) :-
write('国語 :'),get_integer(_国語),
write('数学 :'),get_integer(_数学),
write('英語 :'),get_integer(_英語),!.
科目別得点入力(5,[_国語,_数学,_英語,_社会,_理科]) :-
write('国語 :'),get_integer(_国語),
write('数学 :'),get_integer(_数学),
write('英語 :'),get_integer(_英語),
write('社会 :'),get_integer(_社会),
write('理科 :'),get_integer(_理科),!.