![]() |
|
Модераторы: volvo877, Snowy, MetalFan |
![]()
|
|
| Brizon |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 1 Регистрация: 14.6.2008 Репутация: нет Всего: нет |
Дана целочисленная прямоугольная матрица. Определить номер столбца,в котором находится самая длинная серия одинаковых элементов (оформить в виде процедуры).
|
|||
|
||||
| megabist |
|
|||
![]() Mart Slaaf ![]() ![]() Профиль Группа: Участник Сообщений: 455 Регистрация: 3.4.2006 Где: Мск Репутация: нет Всего: 31 |
А есть какое-нибудь ограничение на размеры матрицы?
Добавлено через 14 минут и 2 секунды Хотя если серия, это подряд то пофигу. Код писать не смогу, подскажу общий ход решения ходишь циулом по всем столбцам., каждый стобец пробегаешь и там если данный элемент равен следующему, то добавляешь +1 в абстрактную переменную колличества в серии. если нет, то сверяешь наше колличество элементов в серии, с ммаксимальной длинной серии за этот столбец. если больше, то перезаписываешь если меньше то не трогаешь, текущее колличество уходит в ноль. после пробеганий каждого столбца сравниваешь текущее максимальное значение за столбец, с максимальным значением за все столбцы, если меньше или равно, ничего не делаешь, если больше, то переписываешь его туда, а в другую переменную записываешь номер этого столбца. незабывай обнулять переменные. если ещё будет время, таки напишу код. Извиняюсь за ссвою косноязычность. -------------------- Don't panic! Жди, и Фатум тебя приведёт... |
|||
|
||||
![]()
|
| Правила форума "Delphi" | |
|
|
Запрещается! 1. Обсуждать и делится взломанными компонентами или программным обеспечением 2. Публиковать ссылки на варез 3. Оффтопить
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |