Verzweifelt: Algorithmus zur Ermittlung aufeinander folgender Zahlen Array

[Dejan Vu]

Diese Funktion liefert die Summe für eine beliebige Position (zumindest soll sie das).

Delphi-Quellcode:

function GetConsecutiveSum(position : Integer) : Integer;
Begin
  if Values[position]=0 then begin 
     result := 0
     exit;
  end;
    
  while (position > low(Values)) and (Values[position] <> 0) do 
    dec(position);

  result := 0;
  repeat
    inc(result,values[position]);
    Inc(position);
  until (position>High(values)) or (values[position]=0);
end;

Getippt und nicht getestet.

[Blup]

Funktioniert nicht wenn du auf einer Position stehst die den Wert 0 hat und ein Wert <> 0 folgt.

[Dejan Vu]

Jetzt vielleicht?