[Smile188]

Помогите с задачей


Авиабилет
Структура записи
-пункт назначения
- номер рейса
- модель самолета
- ФИО пассажира
- Дата вылета:
-день
-месяц
- год
Записи упорядоченный по пункту назначения . Определить пункт назначения , в который вылетает наибольшее кол-во пассажиров

[ApxaHGe1]

А записывать куда?)
или "в уме"(с)

[lmikle]

так и хочется ответить:

Код:

1	SELECT Destination, Count(1) AS Cnt FROM TicketList GROUP BY Destination ORDER BY 2 DESC LIMIT 1

Но LinQ, вроде, в Дельфях нету.

Задачу полностью ставь, давай свой код, в котором реализованно все, кроме проблемного места. Тогда кто-то поможет.

По алгоритму. Идешь по списку/массиву/что-там-у-тебя-где-эти-записи-храняться. Для каждой записи с тем же пунктом назначения к счетчику прибавляешь единичку. При смене пункта назначения сравниваешь с пред. значением, если больше, то запоминаешь новое. Как то так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

var   Dest : String;   DestCnt : Integer;   CurDest : String;   CurCnt : Integer;   I : Integer; begin   Dest := '';   DestCnt := 0;   CurDest := '';   CurCnt := 0;   For I := Low(A) To High(A) Do // массив с записями     If CurDest = A[i].Dest       Then Inc(CurCnt)       Else         Begin           If CurCnt > DestCnt Then             Begin                Dest := CurDest;                DestCnt := CurCnt;             End;           Curcnt := 0;           CurDest := A[i].Dest;         End;   If CurCnt > DestCnt Then     Begin        Dest := CurDest;        DestCnt := CurCnt;     End;   ShowMessage(Dest); end;

[ShamanVV]

А решение программно или динамически?

[lmikle]

Чего???
Нифига не понял последний вопрос...