Überprüfen, ob Zahl in unregelmäßigen Bereichen

[negaH]

bei max. 10 Bereichen lohnt keine aufwendige binäre Suche/Baum.

Delphi-Quellcode:

var
  Bereich: array[0..10] of Integer = (10,100,1000,234567,87654321, MaxInt, 0, 0, 0); // MaxInt als End-Marker
begin
  BereichIndex := Low(Bereich);
  while Zahl > Bereich[BereichIndex] do
    Inc(BereichIndex);
end;

Gruß Hagen