Напечатать числа, которые образуют убывающие последовательности - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д