Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var x: integer;
begin
tabelle[0,3] := 0;
for x := 1 to 11 do
Tabelle[x,3] := Tabelle[x,2] - Tabelle[x-1,2];
min := 9999999;
max := 0;
//L = gewünschte Umtergrenze
//H = gewünschte Obergrenze
//L und H suchen (auch trivial)
for x := 0 to 11 do
begin
if Tabelle[x,1] = (gesuchte Untergrenze) then L := x
if Tabelle[x,1] = (gesuchte Obergrenze) then H := x
end
for x := L to H do
begin
if max < Tabelle[x,3] then max := Tabelle[x,3]
if min > Tabelle[x,3] then min := Tabelle[x,3]
end
end;
Das setzt doch voraus, dass ich eine Untergrenze und eine Obergrenze habe (gesuchte Untergrenze/Obergrenze). Aber die möchte ich doch ausrechnen.
Je länger ich da rumprobiere, desto weniger kappier ich davon.
