このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1291471791/456
#  ../test/read.cgi/tech/1291471791/400 IEだと文字化けしてたのではりなおします…(´・ω・`) 
#   
#  問題1:キーボードから4人の数学、英語、国語の成績(整数)をint型二次元配列に入力。 
#  次の表の形式にして画面に出力するようにする(平均は小数点第二位まで) 
#   
#   A B C D heikin 
#  sugaku 40 100 50 50  60.00 
#  eigo 60 80 100 30 67.50 
#  kokugo 26 25 50 60 40.25 
#   

'キーボードから4人の数学、英語、国語の成績(整数)をint型二次元配列に入力。次の表の形式にして画面に出力するようにする(平均は小数点第二位まで)\\n A B C D heikin\\neigo 60 80 100 30 67.50\\nkokugo 26 25 50 60 40.25\\n' :-
        'キーボードから4人の数学、英語、国語の成績(整数)をint型二次元配列に入力'(LL1),
        転置(LL1,LL2),
        次の表の形式にして画面に出力する(LL2).

'キーボードから4人の数学、英語、国語の成績(整数)をint型二次元配列に入力'(LL) :-
        length(LL,4),
        'キーボードから4人の数学、英語、国語の成績(整数)をint型二次元配列に入力'(['A','B','C','D'],LL).

'キーボードから4人の数学、英語、国語の成績(整数)をint型二次元配列に入力'(_,[]).
'キーボードから4人の数学、英語、国語の成績(整数)をint型二次元配列に入力'([_氏名|R1],[_成績|R2]) :-
        write_formatted_atom(S,'%t : ',[_氏名]),
        催促付き整数入力(S,_成績),
        'キーボードから4人の数学、英語、国語の成績(整数)をint型二次元配列に入力'(R1,R2).

次の表の形式にして画面に出力する(LL) :-
        write(' A B C D heikin\n'),
        append(_,[_行|R],LL2),
        concat_atom(_行,' ',S1),
        avg(_行,_平均),
        write_formatted_atom(S2,'%.2f',[_平均]),
        write_formatted('%t %t\n',[S1,S2]),
        R = [].