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

[negaH]

Zitat:

1, 2, 3, 4, 5, 6, 7, 8, 9

Das wären zum Beispiel 4 Bereiche.

Und nun habe ich eine Zahl zwischen 1 und 9 und möchte gucken, in welchen Bereich diese liegt.

Ich gehe mal von diesen Angaben aus.

Delphi-Quellcode:

const
  Bereich: array[1..9] of Byte = (0,0,1,2,2,2,2,3,3);
begin
  assert(Zahl in [1...9], 'Zahl muß zwischen 1 bis 9 liegen');

  BereichIndex := Bereich[Zahl];
end;

in der Variablen BereichIndex findest du den Index des Bereiches

0 = 1,2
1 = 3
2 = 4,5,6,7
3 = 8,9

Gruß Hagen