このディレクトリの索引
#  出題場所:: http://toro.2ch.net/test/read.cgi/db/1343899481/819
#  環境:アクセス2007 
#   
#  得点テーブル 
#  日 科目 得点 
#  1/1 英語 80 
#  1/1 国語 50 
#  1/1 数学 90 
#   
#  1/2 英語 70 
#  1/2 国語 70 
#   
#  1/3 国語 60 
#  1/3 数学 80 
#   
#  1/4 英語 60 
#  1/4 国語 60 
#  1/4 数学 60 
#   
#  このようなテーブルから、下記のようにデータを取ってエクセルに張り付けたいのですが 
#  どのようにすればよいでしょうか。 
#   
#  日 英語  国語  数学 
#  1/1 80 50 90 
#  1/2 70 70  
#  1/3  60 80 
#  1/4 60 60 60 
# 
# 

'環境:アクセス2007

得点テーブル
日 科目 得点
1/1 英語 80
1/1 国語 50
1/1 数学 90

1/2 英語 70
1/2 国語 70

1/3 国語 60
1/3 数学 80

1/4 英語 60
1/4 国語 60
1/4 数学 60

このようなテーブルから、下記のようにデータを取ってエクセルに張り付けたいのですが
どのようにすればよいでしょうか。

日 英語  国語  数学
1/1 80 50 90
1/2 70 70 
1/3  60 80
1/4 60 60 60' :-
        write('日,英語,国語,数学\n'),
        日付ごとに三科目の得点を表示する(R).

日付ごとに三科目の得点を表示する :-
        forall(日付の選択(_日),三科目の得点を表示する(_日,_英語,_国語,_数学)).

日付の選択(_日) :-
        setof(_日,[_日,_科目,_得点] ^ 得点テーブル(_日,_科目,_得点),_日ならび),
        member(_日,_日ならび).

三科目の得点を表示する(_日) :-
        writef('%t,',[_日]),
        英語表示(_日),
        国語表示(_日),
        数学表示(_日).

英語表示(_日) :-
        得点テーブル(_日,英語,_得点),
        writef('%3r,',[_得点]),!.
英語表示(_日) :-
        writef('%t,',['    ']).

国語表示(_日) :-
        得点テーブル(_日,国語,_得点),
        writef('%3r,',[_得点]),!.
国語表示(_日) :-
        writef('%t,',['    ']).

数学表示(_日) :-
        得点テーブル(_日,数学,_得点),
        writef('%3r\n',[_得点]),!.
数学表示(_日) :-
        writef('%t\n',['    ']).