このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1309076891/380
#  【課題】フィールドとして名前,ID,学年,電話番号を持つクラスを作成せよ。 
#  このクラスには名簿情報を標準入力するメソッドと、学年と電話番号を変更するメソッドを持つ. 
#  メインのクラスから5件の名簿情報を登録し,すでに入力された名簿情報(1件目に入力した名簿情報とする)の学年と 
#  電話番号を変更した後,5件すべての名前,ID,学年,電話番号を表示する. 
#   
#  【形態】1. Javaアプリケーション(main()で開始) 
#  【GUI】4. 制限なし 
#  【期限】11/4まで 
#  【Ver】java version 1.6.0_22 
#   
#  お願いします 
# 
# 

'5件の名簿情報を登録し,すでに入力された名簿情報(1件目に入力した名簿情報とする)の学年と電話番号を変更した後,5件すべての名前,ID,学年,電話番号を表示する' :-
        '5件の名簿情報を登録し',
        'すでに入力された名簿情報(1件目に入力した名簿情報とする)の学年と電話番号を変更した後',
        '5件すべての名前,ID,学年,電話番号を表示する'.

'5件の名簿情報を登録し' :-
        length(Ln,5),
        '5件の名簿情報を登録し'(Ln).

'5件の名簿情報を登録し'([]).
'5件の名簿情報を登録し'([_|R]) :-
        '名簿情報を1件得る'(_名前,_ID,_学年,_電話番号),
        名簿情報を登録(_名前,_ID,_学年,_電話番号),
        '5件の名簿情報を登録し'(R).

'名簿情報を1件得る'(_名前,_ID,_学年,_電話番号) :-
        write('名前,_ID,学年,電話番号,をカンマ区切りで入力して下さい : \n'),
        readln([_名前,_ID,_学年,_電話番号]),!.

名簿情報を登録(_名前,_ID,_学年,_電話番号) :-
        assertz(名簿(_名前,_ID,_学年,_電話番号)).

'すでに入力された名簿情報(1件目に入力した名簿情報とする)の学年と電話番号を変更した後' :-
        write('更新する組みの名簿情報を入力します\n'),
        '名簿情報を1件得る'(_名前,_ID,_学年_,_電話番号_),
        retract(名簿(_名前,_ID,_学年_1,_電話番号_1)),
        assertz(名簿(_名前,_ID,_学年,_電話番号)).

'5件すべての名前,ID,学年,電話番号を表示する' :-
        名簿(_名前,_ID,_学年,_電話番号),
        writef('%t,%t,%t,%t\n',[_名前,_ID,_学年,_電話番号]),
        fail.
'5件すべての名前,ID,学年,電話番号を表示する'.