Форум программистов, компьютерный форум, киберфорум
Наши страницы

VBA

Войти
Регистрация
Восстановить пароль
 
механ250301
0 / 0 / 0
Регистрация: 04.06.2015
Сообщений: 3
#1

Определить есть ли в массиве одинаковые рядом расположенные элементы - VBA

04.06.2015, 12:29. Просмотров 485. Ответов 1
Метки нет (Все метки)

Написать программу, которая определяет есть ли в данном массиве одинаковые рядом расположенные элементы. Массив В[1..10] вводится с клавиатуры.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.06.2015, 12:29
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить есть ли в массиве одинаковые рядом расположенные элементы (VBA):

Определить, есть ли в массиве одинаковые числа? - VBA
Уважаемые программисты!!!ни как не могу понять как решать задачи с одномерным и двумерными массивами! нужно написать программу: ...

Определить, есть ли у матриц A и B одинаковые строки - VBA
Есть ли у матриц A и B одинаковые строки? Private Sub CommandButton1_Click() Dim A() As Single Dim N As Integer Dim M As...

Определить, есть ли у матриц A и B одинаковые строки? - VBA
Помогите , пожалуйста, решить задачу: Есть ли у матриц A и B одинаковые строки?

Определить, есть ли среди цифр заданного пятизначного числа одинаковые - VBA
Определить, есть ли среди цифр заданного пятизначного числа одинаковые? Написать задачку с помощью пользовательских функций

Определить, есть ли среди цифр заданного пяти-значного числа одинаковые - VBA
Привет. Вот на втором курсе появился VBA. Прошло уже 4 урока а вся группа застряла на 2-3 задание. Я ни как не могу понять как сделать...

Определить, есть ли среди цифр заданного пятизначного числа одинаковые (Без MsgBox) - VBA
Function opredelenie() Dim b(9) As Byte Dim N As Long N = InputBox("Введите число") Do While N > 0 If b(N Mod 10) Then MsgBox...

1
Vovchikvsb
457 / 117 / 57
Регистрация: 04.03.2015
Сообщений: 311
04.06.2015, 22:48 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Вариант с двумя циклами
Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub test()
    Dim B(1 To 10), i As Integer
    For i = 1 To 10
        B(i) = InputBox("Введите элемент массива")
    Next i
    For i = 2 To 10
        If B(i) = B(i - 1) Then Exit For
    Next i
    If i = 11 Then MsgBox ("Нету") Else MsgBox ("Есть")
End Sub
Вариант с одним циклом
Visual Basic
1
2
3
4
5
6
7
8
9
Sub test()
    Dim B(1 To 10), i As Integer, res As Boolean
    B(1) = InputBox("Введите элемент массива")
    For i = 2 To 10
        B(i) = InputBox("Введите элемент массива")
        If B(i) = B(i - 1) Then res = True
    Next i
    If res Then MsgBox ("Есть") Else MsgBox ("Нету")
End Sub
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.06.2015, 22:48
Привет! Вот еще темы с ответами:

Определить, есть ли в данном массиве строка, в которой ровно два отрицательных элемента - VBA
Дан двумерный массив размером n*m, заполненный случайными числами (положительными и отрицательными). Определить, есть ли в данном массиве...

Определить, есть ли в данном массиве строка, в которой ровно два отрицательных элемента - VBA
Дан двумерный массив размером n*m, заполненный случайными числами (положительными и отрицательными). Определить, есть ли в данном массиве...

Определить, есть ли в массиве одинаковые элементы, стоящие рядом - Pascal ABC
Заполните массив случайными числами в интервале .Определить , есть ли в нем элементы с одинаковыми элементами стоящими рядом Пример: ...

Определить, есть ли в массиве одинаковые элементы не стоящие рядом - Pascal ABC
Заполнить массив случайными числами определить есть ли одинаковые элементы не стоящие рядом


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru