За числом 5 следующим большим будет 12

[zvygin1964]

Создал числа:1, 2, 3, 5, 12, 56, 124, ..., они возрастают и integer.
Если они ссыпаны в кучу вот так: 1, 56,12, 5, 3, 124, 2, ..., то как мне узнать, что за числом 5 следующим большим будет 12.
А в другой раз я спрошу, какое число будет ещё больше (то есть 56).
Занести все числа в массив по очереди не хочу. (Мог бы их вызывать по очереди, по нарастанию номера в массиве)
Если буду дописывать числа в неизвестном пока для меня месте, то очередь в массиве будет ломаться.
В теме: Типичные задачи и примеры не нашел.
Может то, чего я хочу имеет название в Google для Delphi 7 ?

[Alex11223]

Что? Сортировка нужна что ли?

[zvygin1964]

Наверно нет. Надо от имеющегося числа узнать следущее большее из списка.

begin
 case max of
    100:  begin
           ..................
          end;

   200:  begin
            .............................
          end;

    300:  begin
            .................................
          end;

    301:  begin
            ......................
          end;

   1000:   begin
            Noop;
          end;

    23:   begin
            Noop;
          end;


  else Button3.Caption := '*не совпало';
  end;
 end;

[Alex11223]

Ну можно отсортировать и тогда следующее не сложно найти если есть позиция предыдущего.

Или просто обычный цикл для поиска минимального как в той теме на первой странице, только пропускать те, что <= этого числа.

[zvygin1964]

Сообщение от Alex11223

теме на первой странице

Это где?

[Alex11223]

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
var p:array of integer;
    i,i0,c,a,min:integer;
    s,s1:string;
begin
   c:=0;
   i0:=1;
   s:=Edit1.Text;
   s:=s+',';
   For i:=1 to Length(s) do
      If s[i]=',' then
      begin
         c:=c+1;
         SetLength(p,c);
         s1:=Copy(s,i0,i-i0);
         p[c-1]:=StrToInt(s1);
         i0:=i+1;
      end;
   Label1.Caption:='Проверка: ';
   For i:=0 to c-1 do
      Label1.Caption:=Label1.Caption+IntToStr(p[i])+' ';
   a:=StrToInt(Edit2.Text);
   min:=a;
   For i:=0 to c-1 do
   begin
      If (a=min) and (p[i]>a) then
         min:=p[i];
      If (a<min) and (min>p[i]) and (p[i]>a) then
         min:=p[i];
   end;
   Label2.Caption:='Найдено число: '+IntToStr(min);
end;

[Аватар]

Если буду дописывать числа в неизвестном пока для меня месте, то очередь в массиве будет ломаться

Если в том массиве 100, 500 или 1000 чисел, то и не заметишь как самая простая сортировка по новой отработает. Да и в массив можно вставить не ломая порядок, это побыстрей чем пересортировать, но код чуть сложней

[zvygin1964]

Значит всё таки только массив ? Очень хотелось без него вообще. Типа procedure перед

case max of

большее от имеющегося числа.

[Alex11223]

в том массиве 100, 500 или 1000 цифр

А я думал только 10 цифр бывает в десятичной системе счисления.