Напечатать числа, которые образуют убывающие последовательности - VB

Узнай цену своей работы

Формулировка задачи:

Прошу помощи!! дан массив целых чисел А={ai}, где i={1,2,...n}. напечатать числа, которые образуют убывающие последовательности или "Таких чисел нет!". например: если А={2,4,3,0,2,5,-2,0,5}, результат 4,3,0 и 5,0,-2 написать программу в visual basic.

Решение задачи: «Напечатать числа, которые образуют убывающие последовательности»

textual
Листинг программы
Private Sub Command1_Click()
 
   Dim A(1 To 10) As Integer
 
   A(1) = 1
   A(2) = 2
   A(3) = 10
   A(4) = 5
   A(5) = 4
   A(6) = 3
   A(7) = 7
   A(8) = 6
   A(9) = 5
   A(10) = 19
 
   Task A()
 
End Sub
 
Sub Task(A() As Integer)
 
      n1% = LBound(A, 1)
      n2% = UBound(A, 1)
      
      nBeg% = n1%
      
      Do
         
          If nBeg% >= n2% Then Exit Do
          
          nPrev% = nBeg%
          nCurr% = nBeg% + 1
 
          Do
             
              If A(nCurr%) < A(nPrev%) Then
              
                 nPrev% = nCurr%
                 nCurr% = nCurr% + 1
              
                 If nCurr% = n2% Then
                    If nPrev% - nBeg% > 1 Then
                       For i% = nBeg% To nPrev%
                           Debug.Print A(i%); " ";
                       Next i%
                       Debug.Print ""
                       c% = c% + 1
                       nBeg% = n2%
                       Exit Do
                     End If
                 End If
              
              Else
                 
                 If nPrev% - nBeg% > 1 Then
                    For i% = nBeg% To nPrev%
                        Debug.Print A(i%); " ";
                    Next i%
                    Debug.Print ""
                    c% = c% + 1
                 End If
                 
                 nBeg% = nCurr%
                 Exit Do
                 
              End If
 
          Loop
 
      Loop
      
      If c% = 0 Then Debug.Print "Убывающих последовательностей нет!"
      
End Sub

ИИ поможет Вам:


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

Оцени полезность:

13   голосов , оценка 3.769 из 5
Похожие ответы