|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Вопрос по массиву чисел.
Подскажите пожалуйста, как мне реализовать следующее:
1) Объявляем числовой массив A[i]. 2) Производим перебор от i=1 до n и сравниваем с произвольным числом k. В случае, когда i совпадет с k, значение i добавляем в массив. 3) Снова производим перебор i (от первого до n, но исключая число, что уже добавили в массив), сравниваем с другим произвольным числом l. В случае, когда i совпадет с l, значение i добавляем в массив. В массиве теперь два значения. 4) И т.д. Это не задачка из учебника, просто нужно для моего проекта. Заранее спасибо. |
#2
|
|||
|
|||
Я правильно понял, что добавление в массив происходит когда i = k? Вопрос - зачем перебор нужен? Почему сразу не добавлять k на нужное место в массиве?
|
#3
|
|||
|
|||
k заранее неизвестно, поэтому сразу добавить в массив нельзя.
Да не в этом суть. Допустим я выяснил чему равна k, как добавить ее в массив? и как сделать следующий цикл уже исключая это значение? |
#4
|
||||
|
||||
Если я правильно понял:
Код:
var Result: Array of Integer; procedure GetNumbers(A: Array of Integer; Numbers: Array of Integer); var i, j: Integer; begin SetLength(Result, 0); for i:=0 to Length(Numbers) - 1 do for j:=0 to Length(A) - 1 do if A[j] = Numbers[i] then begin SetLength(Result, Length(Result) + 1); Result[Length(Result) - 1]:=j; end; end; Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |
#5
|
|||
|
|||
Спасибо! буду пробовать.
|