VPF::Как вычеслить совпадения в массиве?

Wildklas

Дата 21.11.2010, 02:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 21
Регистрация: 19.10.2010

Репутация: нет
Всего: нет

Есть массив: имя, кол-во, и вес.

Код


 P:Passenger = ((Name:'Lubkovsky';Number:3;Wt:2.5),
                      (Name:'Davudov';Number:5;Wt:7),
                      (Name:'Beluy';Number:4;Wt:5),
                      (Name:'Molodenova';Number:5;Wt:7.5),
                      (Name:'Sereda';Number:8;Wt:9.5));

Нужно определить следущее: имеються ли 2 человека с одинаковым кол-вом и разлиаються по весу не более чем на 0.5
Я задал так что есть совпадение:
Как вычеслить совпадения в массиве?

Код



 (Name:'Davudov';Number:5;Wt:7),
   (Name:'Molodenova';Number:5;Wt:7.5),

А вот как это посчитать, и вывести? Подскажите пожалуйста.

superVad

Дата 21.11.2010, 14:10 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: 7
Всего: 15

в цикле

guestl

Дата 21.11.2010, 16:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 21.11.2010

Репутация: нет
Всего: нет

если решать в лоб: отсортировать массив по количеству и в цикле попарно сравнивать записи с одинаковым количеством. сравнивать модуль разницы между весами и заданной дельтой 0,5.

Wildklas

Дата 21.11.2010, 17:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 21
Регистрация: 19.10.2010

Репутация: нет
Всего: нет

Всем спасибо, разобрался smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »