| 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 *) |