10/02/09 20:16:10
>>668
% Prolog (その二) 課題11-3
得点表表示(L) :- 得点表見出し表示,得点表明細表示(L).
得点表見出し表示 :- write(' 国語 数学 英語 社会 理科 | 平均点\n').
得点表明細表示([[_名前,[_国語,_数学,_英語]]|R]) :-
_平均点 is (_国語+_数学+_英語) // 3,
write_formatted('%t %t %t %t | %t\n',[_名前,_国語,_数学,_平均点]),
得点表明細表示(R),!.
得点表明細表示([[_名前,[_国語,_数学,_英語,_社会,_理科]]|R]) :-
_平均点 is (_国語+_数学+_英語+_社会+_理科) // 5,
write_formatted('%t %t %t %t %t %t | %t\n',[_名前,_国語,_数学,_英語,_社会,_理科,_平均点]),
得点表明細表示(R),!.