Back to notes -- Keyboard shortcut: 'u'              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 *)