Повторение Элемента, Задачка, помогите решить |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Повторение Элемента, Задачка, помогите решить |
Shtraf |
Сообщение
#1
|
Группа: Пользователи Сообщений: 5 Пол: Мужской Реальное имя: Gaur Репутация: 1 |
Найти максимальное кол-во и значение расположенных рядом одинаковых элементов массива.
Массив <= 10 Не могу дойти до алгоритма, по которому считать кол-во элементов выполняющих условие, так чтобы, если есть ряд длинней предыдущего, он считался заново и сохранить повторяющееся значение. |
Lapp |
Сообщение
#2
|
Уникум Группа: Пользователи Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159 |
дойти до алгоритма, по которому считать кол-во элементов выполняющих условие, так чтобы, если есть ряд длинней предыдущего, он считался заново и сохранить повторяющееся значение. Как-то так: const -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
Shtraf |
Сообщение
#3
|
Группа: Пользователи Сообщений: 5 Пол: Мужской Реальное имя: Gaur Репутация: 1 |
Логическая ошибка идёт.
Если в конце поставить, к примеру, подряд 4 одинаковых значения, выдаёт 2 значения подряд большее. |
IUnknown |
Сообщение
#4
|
Гуру Группа: Пользователи Сообщений: 1 013 Пол: Мужской Ада: Разработчик Embarcadero Delphi: Сторонник Free Pascal: Разработчик Репутация: 627 |
Цитата Если в конце поставить, к примеру, подряд 4 одинаковых значения этот вариант приведенным выше кодом не охватывается. Завершающая последовательность не проверяется, т.к. условие a[ i ] <> a[s] не выполняется. Исправить можно так:for i := 2 to m + 1 doесли поменять условия местами - вылет за пределы массива гарантирован. |
Shtraf |
Сообщение
#5
|
Группа: Пользователи Сообщений: 5 Пол: Мужской Реальное имя: Gaur Репутация: 1 |
Сделал. Идёт не просчёт 1 элемента
тоесть, если все элементы одинаковые то она даёт на 1 меньше. Сейчас проверю (я поменял вод данных (вод вручную не больше 10)). Это ведь не должно влиять на результат? Добавлено через 12 мин. НУ вот она:
Добавлено через 6 мин. Пример: если N=5 a[1]=a[2]=a[3]=a[4]=a[5]=4 цепочка = 4 значение 4 Сообщение отредактировано: Shtraf - |
Shtraf |
Сообщение
#6
|
Группа: Пользователи Сообщений: 5 Пол: Мужской Реальное имя: Gaur Репутация: 1 |
Вот то что я сотворил... но я делал на том что знаю (while я не умею им пользоваться у меня с ним не получилось) Добавлено через 10 мин. В принципе вопрос исчерпан, но буду очень рад советам, потому что я только начал осваивать всё это. |
IUnknown |
Сообщение
#7
|
Гуру Группа: Пользователи Сообщений: 1 013 Пол: Мужской Ада: Разработчик Embarcadero Delphi: Сторонник Free Pascal: Разработчик Репутация: 627 |
Цитата Сделал. Идёт не просчёт 1 элемента Ну неправда же, зачем так откровенно врать?тоесть, если все элементы одинаковые то она даёт на 1 меньше const Внезапно: 1 1 1 1 1 . Если бы давало неправильный результат - я бы, наверное, не стал отвечать на форуме? Аналогично: (Показать/Скрыть)
Сообщение отредактировано: IUnknown - |
Lapp |
Сообщение
#8
|
Уникум Группа: Пользователи Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159 |
Логическая ошибка идёт. Да, верно, этот момент я не учел.. (( Спасибо! Обоим по +1 - Штрафу за обнаружение, IUnknown за исправление! -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
Shtraf |
Сообщение
#9
|
Группа: Пользователи Сообщений: 5 Пол: Мужской Реальное имя: Gaur Репутация: 1 |
|
Текстовая версия | 15.05.2024 8:47 |