Форум по Delphi программированию



Вернуться   Форум по Delphi программированию > Все о Delphi > Синтаксис
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 03.12.2021, 23:29
Delphi_RTTI Delphi_RTTI вне форума
Прохожий
 
Регистрация: 30.11.2021
Адрес: Киев
Сообщения: 4
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Как разобрать массив чисел по парам?

Всем привет!
Помогите разобраться...
Имеется массив чисел :
M: Array[0..999] of word;

Пример: 567, 324, 12, 478, 455, 11
Как разобрать его по-парам?, чтобы вышло:

567, 324
12, 478
455, 11

... И далее работать с этими числами ...
Но и это ещё не всё!
Массив может содержать нечётное количество элементов.
В этом случае, нужно также разобрать его по-парам, а
остаток обрабатывать отдельно.
Есть идеи?

Админ: Предупреждение за излишние выделения текста жирным

Последний раз редактировалось Admin, 04.12.2021 в 17:50.
Ответить с цитированием
  #2  
Старый 06.12.2021, 09:17
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 7,785
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну вот так, например (не оптимально с точки зрения управления памятью, но более понятно):

Код:
type
  TArrayPair = record
    First : WORD;
    Second : WORD;
  end;

var
  A : Array Of WORD;
  B : Array Of TArrayPair;
  C : WORD;
  I : Integer;

begin
  I := 0;
  SetLength(B,0);
  C := 0; // 0 is not in initial array, just assumption
  While (I < Length(A) div 2) Do
    Begin
      SetLength(B,Length(B)+1);
      B[High(B)].First := A[i];
      B(High(B)].Second := A[I+1];
      I := I + 2;
   End;
   If (Length(A) mod 2) = 1 Then C := A[High(A)];
end;
Ответить с цитированием
Ответ



Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 15:03.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2021

ВКонтакте   Facebook   Twitter   Ссылка на Telegram