Определить, содержит ли массив хотя бы два равных соседних числа

@Slava-kustov · Регистрация: 08.06.2015

Author24 — интернет-сервис помощи студентам

вот то что смог сделать, но программа не работает (((

Visual Basic

Sub Slava1()
    Dim a(1 To 10) As Integer
    i As Integer
    C As Integer
    K As Integer
    For i = 1 To 9
        a(i) = Int(20 * Rnd())
    Next
    K = 0
    C = a(1)
    For i = 2 To 9
    If a(i) = C Then K = K + 1
    C = a(i)
    Next i
        End Sub

@Vlad999 · 10.06.2015, 15:49

Сообщение от Slava-kustov

но программа не работает

в чем это выражается?

Код

Dim a(1 To 10) As Integer
i As Integer
C As Integer
K As Integer

перечислять нужно через запятую или если с новой строки то начинать с Dim в каждой новой строке где объявляете переменную.

Visual Basic

1	Dim a(1 To 10)%, i%, C%, K%

чтобы не плодить переменные вместо С можно использовать a(i-1)

@Slava-kustov · 10.06.2015, 16:27 **[ТС]**

Заменил, теперь нажимаю на выполнение и тишина...

Visual Basic

Sub Slava1()
    Dim a(1 To 10), i, C, K As Integer
      
    For i = 1 To 9
        a(i) = Int(20 * Rnd())
    Next
    K = 0
    C = a(1)
    For i = 2 To 9
    If a(i) = C Then K = K + 1
    C = a(i)
    Next i
        End Sub

@Vlad999 · 10.06.2015, 16:43

Сообщение от Slava-kustov

и тишина...

так у вас в коде и нет ничего для информирования.
например

Visual Basic

If K>0 Then 
msgbox "Одинаковые подряд идущие числа найдены"
Else
msgbox "Одинаковые подряд идущие числа не найдены"
end if

Сообщение от Slava-kustov

Dim a(1 To 10), i, C, K As Integer

при такой записи a, i, C будут иметь тип Variant.

Добавлено через 8 минут

Visual Basic

Sub Slava1()
Dim a(1 To 10) As Integer
Dim i As Integer, C As Integer, K As Integer
For i = 1 To 9
a(i) = Int(10 * Rnd())
Next
For i = 2 To 9
  If a(i) = a(i - 1) Then
   MsgBox "Одинаковые подряд идущие числа найдены"
   Exit Sub
  End If
Next i
MsgBox "Одинаковые подряд идущие числа не найдены"
End Sub

уменьшил случайное число чтобы увеличить шанс одинаковых чисел.

@Slava-kustov · 10.06.2015, 16:44 **[ТС]**

Исправил, заработало, спасибо большое

, вот конечный код

Visual Basic

Sub Slava1()
    Dim a(1 To 10), i, C, K As Integer
      
    For i = 1 To 9
        a(i) = Int(20 * Rnd())
    Next
    K = 0
    C = a(1)
    For i = 2 To 9
    If a(i) = C Then K = K + 1
    C = a(i)
    Next i
    If K > 0 Then
      MsgBox "Одинаковые подряд идущие числа найдены"
    Else
      MsgBox "Одинаковые подряд идущие числа не найдены"
    End If
    End Sub

	10.06.2015, 16:44

Опции темы