Back to slide -- Keyboard shortcut: 'u'  next  next  su6.pas - Funktionen FindMaxIndex(var T: ArrayType; fra, til: TabelInterval): TabelInterval.Lecture 6 - slide 18 : 46
Program 2

  function FindMaxIndex(var T: ArrayType;
                        fra, til: TabelInterval): TabelInterval;
  (* Find elementet med den største værdi i T[fra..til],
     og returner dets indeks *)
  (* PREBETINGELSE: 1 <= fra <= til <= max *)
  var i, MaxIndex: TabelInterval;
      MaxElement: TabelElement;
  begin
    MaxIndex := fra; MaxElement := T[fra];
    for i := fra+1 to til do
    if T[i] > MaxElement
    then begin
           MaxElement := T[i];
           MaxIndex := i
         end;
    FindMaxIndex := MaxIndex
  (* POSTBETINGELSE: For alle j: T[j].Fornavn <= T[MaxIndex].Fornavn *)
  end; (* FindMaxIndex *)