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

[Аватар]

Сами то числа где-то хранить нужно. case вообще-то при чем?

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

Та ладно, уже до этого исправил на чисел. Не кандидатская же

[zvygin1964]

Не буду их хранить вообще. Это условия перехода. Присваиваю в теле программы:

var_integer[C_Where_Further]:= 100;

Тишина... Значит, нужно к текущему числу прибавлять +1 до тех пор, пока не совпадёт.
Долго, тупо, но этого человек и не заметит.

[newerow1989]

7-й пост не подходит?

[Аватар]

Массив пугает? Удобно же. И хотелось бы услышать не как, а для чего

PS

А еще есть конструкция

if m<=10 then ...
else if m<=50 then ...
else if ...

[zvygin1964]

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

7-й пост

Подходит. Но

var p:array of integer;

нужно будет создавать руками одновременно с наполнением

case min of

.
Ответ: "другого способа нет",- принят.

Сообщение от Аватар

Массив... Удобно же.

Каждый раз добавляя новое число, нужно ручками дописывать его в массив.
Ленивый и не внимательный. Всё перепутаю много раз...

[min@y™]

дядьмиша выгнал свежего первача из полыни и коровьих лепёх и рожает очередного монстра.
TList? не, не слышал!

Колись, аграрий, чо за xyz?!

[zvygin1964]

TList - то, что нужно.

[zvygin1964]

Сообщение от min@y™

выгнал свежего первача из полыни... и рожает очередного монстра... Колись..., чо за ...?!

картинки хочу менять по очереди.
Это отсюда : http://www.programmersforum.ru/showp...4&postcount=59

[Poma][a]

Можно не сортить, а k-ой порядковой статистикой

[zvygin1964]

Пока будет так:

type
   pDouble=^Integer; //Тип "указатель на Integer число".
//С помощью этой функции реализуется сортировка чисел.
function Comp(Item1,Item2:Pointer):Integer;
begin
  if pInteger(Item1)^ < pInteger(Item2)^ then Result:=-1
  else
     if pInteger(Item1)^ = pInteger(Item2)^ then Result:=0
     else
       if pInteger(Item1)^ > pInteger(Item2)^ then Result:=1;
end;
//Обработчик нажатия кнопки выполняет основную работу.
procedure TForm1.Button1Click(Sender: TObject);
var
  k:Integer;
  List: TList;
  pD:pInteger;
begin
  List:=TList.Create; //Создание списка.
  for k:=0 to 16380 do   //Наполнение списка, но не более 16380 элементов(Максимальная емкость списка).
  begin
        New(pD);      //Резервируем память.
        pD^:=12632;  //Помещаем "нужное мне" число. НУ КАК ЖЕ ЭТО СДЕЛАТЬ ?
        {202, 4638, ......16380}
        List.Add(pD); //Добавляем к списку.
  end;
  List.Sort(Comp);    //Сортируем список.
  //  List.Free; //Уничтожаем список.   НЕ ЗАБЫТЬ ЭТО СДЕЛАТЬ !
end;