このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1291471791/523
#  [1] 授業単元:プログラミング 
#  [2] 問題文(含コード&リンク): 
#  http://ime.nu/www.dotup.org/uploda/www.dotup.org1299227.jpg.html 
#  

テーブル構造(英語と数学の得点データ,1,受験者番号).
テーブル構造(英語と数学の得点データ,2,英語).
テーブル構造(英語と数学の得点データ,3,数学).

英語と数学の得点データ(0,50,10).
英語と数学の得点データ(1,60,80).
英語と数学の得点データ(2,80,80).
英語と数学の得点データ(3,10,90).
英語と数学の得点データ(4,90,90).
英語と数学の得点データ(5,20,30).

二科目合計の最高得点と120点未満の受験者番号を表示する(
        二科目合計の最高得点と(_二科目合計の最高得点),
        '120点未満の受験者番号を'(_120点未満の受験者番号ならび),
        表示する(_二科目合計の最高得点,_120点未満の受験者番号).

二科目合計の最高得点と(_二科目合計の最高得点) :-
        findmax(_二科目合計,(
                    英語と数学の得点データ(_受験者番号,_英語,_数学),
                    _二科目合計 is _英語 + _数学),
                _二科目合計の最高得点).

'120点未満の受験者番号を'(_120点未満の受験者番号ならび) :-
        findall(_120点未満の受験者番号,(
                    英語と数学の得点データ(_120点未満の受験者番号,_英語,_数学),
                    120 < _英語 + _数学),
                _120点未満の受験者番号ならび).

表示する(_二科目合計の最高得点,_120点未満の受験者番号) :-
        concat_atom(_120点未満の受験者番号,' ',_120点未満の受験者番号表示),
        write_formatted('二科目合計の最高得点は %t 点です\n120点未満の受験者番号は %t です\n',[_二科目合計の最高得点,_120点未満の受験者番号表示]).