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!
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