Дана последовательность действительных чисел a1, a2, ., an. Выяснить, будет ли она возрастающей - VB

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

Дана последовательность действительных чисел a1, a2, ..., an. Выяснить, будет ли она возрастающей. Вот что у меня вышло,но она работать как надо не хочет. В чем проблема?
Public Sub task_5()
Dim D() As Integer
Dim n As Integer
Dim i As Integer
Dim str As String
n = CInt(InputBox("Введите количество элементов", "Ввод данных"))
ReDim D(n)
srt = ""
For i = 1 To n
D(i) = CInt(InputBox("Введи значение элемента массива", "Ввод данных"))
str = str & (D(i)) & " "
Next i
MsgBox str
 
If D(i) < D(i - 1) Then
     MsgBox "Не возрастающая"
Else
     MsgBox "Возрастающая"
End If
End Sub

Код к задаче: «Дана последовательность действительных чисел a1, a2, ., an. Выяснить, будет ли она возрастающей - VB»

textual
Function isOrdered(A() As Double, Optional p As Integer = 1) As Boolean
    If p >= UBound(A) Then
       isOrdered = True
    Else
       If A(p + 1) > A(p) Then
          isOrdered = isOrdered(A, p + 1)
       Else
          isOrdered = False
       End If
    End If
    Exit Function
End Function

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

15   голосов, оценка 4.067 из 5


СОХРАНИТЬ ССЫЛКУ