Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 28.05.2010
Сообщений: 21

Определить, входит ли в массив последовательность подряд идущих значений элементов

11.06.2010, 22:30. Показов 1193. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
задан массив. Определить, входит ли в него последовательность подряд идущих значений элементов "1", "2", "3". Если да, то с какой позиции.

очень прошгу решите если вам не сложно))
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
11.06.2010, 22:30
Ответы с готовыми решениями:

Сформируйте массив целых чисел и определите максимальное количество подряд идущих одинаковых элементов
Сформируйте массив целых чисел и определите максимальное количество подряд идущих одинаковых элементов.

Подсчитать самую длинную последовательность подряд идущих букв а
Дана строка. Подсчитать самую длинную последовательность подряд идущих букв а. Пример: aaaaa aaaa aaaabaaaaa aaaaaa aaaaaaaa aaaaaaa ...

Вводить последовательность до тех пор, пока не встретятся три подряд идущих положительных числа
Всем добрый вечер, помогите пж Visual Basic Прошлые задачки решал почти без проблем , а вот тут просто ступор "Вводить...

2
 Аватар для Toxa33rus
3921 / 922 / 125
Регистрация: 16.04.2009
Сообщений: 1,966
12.06.2010, 22:29
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
n=1
for i=lbound(a) to ubound(a)
  if a(i)=n then
    n=n+1
  else
    n=1
  end if
  if n=4 then msgbox "есть!": exit for
next i
0
Частенько бываю
 Аватар для Vlanib
750 / 331 / 42
Регистрация: 20.06.2007
Сообщений: 854
13.06.2010, 19:35
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

А можно так:
Visual Basic
1
2
i = InStr(Join(a, ""), "123")
MsgBox IIf(i, "Сочетание начинается с позиции" & i, "Сочетания нет")
Массив - а
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
13.06.2010, 19:35
Помогаю со студенческими работами здесь

Определить, есть ли в массиве последовательность из подряд идущих элементов
Привет всем.Помогите пожалуйста решить задачу. Заранее спасибо. Дан массив из n элементов орпеделить есть ли в массиве...

Определить, есть ли в одномерном массиве последовательность идущих подряд равных элементов
Определить, есть ли в одномерном массиве последовательность идущих подряд равных элементов, и найти ее длину и сумму.

Выяснить, сколько раз в данную последовательность входит группа подряд идущих символов, образующих слово
Выяснить, сколько раз в данную последовательность входит группа подряд идущих символов, образующих слово С++

Одномерный массив, определить начало и конец самой длинной послед. подряд идущих нулевых элементов.
В одномерный массив заданного размера N (от 2 до 30) ввести произвольные натуральные числа, Определить начало и конец первой, самой длинной...

Определить наибольшую сумму подряд идущих чисел, образующих возрастающую последовательность
Пусть дан файл целых чисел.Определить наибольшую сумму подряд идущих чисел, образующих возрастающую последовательность


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru