Grösster Wert in einem Array

**mirage228**

Hallo,

wir hatten heute in Informatik aufgekriegt den grössten Wert aus einem Array zu suchen.

Ich hab mir dazu was gebastelt und wollte nun wissen, ob und wie man was an dem Algo (soweit man das Algo nennen kann) verbessern könnte:

P.S.: Das Programm ist in Turbo Pascal 7!

zusammenfalten · markieren

Delphi-Quellcode:

			CONST

  MAX_ARRAY_SIZE = 5;

TYPE

  TMyArray = Array[1..MAX_ARRAY_SIZE] of Real;

{ ... }

FUNCTION Max(x,y: Real): Real;

BEGIN

  IF x > y THEN Max := x ELSE Max := y;

END;

FUNCTION GetMaxArrayValue(VAR MyArray: TMyArray): Real;

VAR

  i: integer;

  lastMax: Real;

BEGIN

  lastMax := MyArray[low(MyArray)];

  FOR i := low(MyArray) TO high(MyArray)-1 DO

  BEGIN

    GetMaxArrayValue := Max(lastMax, MyArray[i+1]);

    lastMax := Max(lastMax, MyArray[i+1]);

  END;

END;

{ ... }

mfG
mirage228

Grösster Wert in einem Array

Grösster Wert in einem Array

Forumregeln