このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1339338438/958
#  [1] 授業単元:C言語 
#  [2] 問題文: 
#  http://ime.nu/codepad.org/zTp80Rtc 
#  #include 
#  struct STUDENT
#  {
#   char name[20];
#   int aen1;
#   int aen2;
#   int aen3;
#   int aenf;
#  };
#  
#  void tensyori(struct STUDENT *x);
#  int main(void)
#  {
#   struct STUDENT a = {"sanaka", 70, 65, 80, 0};
#   tensyori(&a);
#   printf("氏名=%s  得点=%d",a.name, a.tenf);
#  }
#  
#  void tensyori(struct STUDENT *x)
#  {
#   x->tenf=x->ten1;
#  }
#  上記のリストは、3回の試験を行って最もよい得点を最終的な得点とする処理を行うプログラムであるが、最終的な得点を求めるtensyori関数がまだ未完成である。 
#  tensyori関数の処理を追加して、上記のプログラムを完成せよ。 
#  

'3回の試験を行って最もよい得点を最終的な得点を求める'(_最終的な得点) :-
        write('氏名を入力してください : '),
        get_line(氏名),
        length(Ln,3),
        '3回の試験を行って最もよい得点を最終的な得点を求める'(Ln,0,_最終的な得点).

'3回の試験を行って最もよい得点を最終的な得点を求める'([],_最終的な得点,_最終的な得点).
'3回の試験を行って最もよい得点を最終的な得点を求める'([_|Ln],_前回までで一番よい得点,_最終的な得点) :-
        数を得る(得点,_得点),
        最もよい得点(_得点,_前回までで一番よい得点,_最もよい得点),
        '3回の試験を行って最もよい得点を最終的な得点を求める'(Ln,_最もよい得点,_最終的な得点).

最もよい得点(_得点,_前回までで一番よい得点,_得点) :-
        _得点 @>_前回までで一番よい得点,!.
最もよい得点(_得点,_前回までで一番よい得点,_前回までで一番よい得点).