10/07/24 11:18:39
>>399 >>397ではなくて >>398でした
% Prolog (その二)
成績の追加(_学籍番号,_名前,_国語,_数学,_理科) :-
学籍番号(_学籍番号),
名前(_名前),
国語(_国語),
数学(_数学),
理科(_理科),
assertz(seiseki(_学籍番号,_名前,_国語,_数学,_理科)).
成績の変更(_学籍番号,_名前,_国語,_数学,_理科) :-
学籍番号(_学籍番号),
名前(_名前),
国語(_国語),
数学(_数学),
理科(_理科),
retract(seiseki(_学籍番号,_,_,_,_)),
assertz(seiseki(_学籍番号,_名前,_国語,_数学,_理科)).
成績の削除(_学籍番号) :-
retract(seiseki(_学籍番号,_,_,_,_)).