Lösungswert mit Array vergleichen, Differenz anzeigen

[Klaus01]

Guten Abend,

zwei Vorschläge:

Delphi-Quellcode:

i:=0;
while not ((notenpunkte[i,0] >= punkte ) and (notenpunkte[i,1] <= punkte)) do
  inc(i);

// ausgabe Punkteanzahl liegt im Bereich i

oder

Delphi-Quellcode:

for i:=0 to 30 do
  begin
    if (notenpunkte[i,0] >= punkte ) and (notenpunkte[i,1] <= punkte) then
      begin
        // Ausgabe das Punkte in dem Bereich i
        break;
      end;
  end;

Grüße
Klaus