Как выяснить, будет ли последовательность убывающей? - VB
Формулировка задачи:
Для начало, наверное, напишу что от меня хотят.
И получаю следующее:
Десять чисел есть. Вопрос: "
Дана последовательность действительных чисел а1, а2,..., а10, элементы которой образована с помощью датчика случайных чисел из диапазона 10,00-99,99. Элементы последовательности в дробной части имеют не более двух цифр. Выяснить, будет ли она убывающей.
Я понимаю это так. Создаем подряд 10 рандомных чисел из диапозона. Получаем последовательность. И проверяем ее на то какая она. ( возрастает или убывает, ну или равномерная ) Вообщем вот я написал код для создания последовательности:
Листинг программы
- Dim mass(1 To 10) As Double
- Dim i As Integer
- Dim k As Integer
- k = 0
- myR = 0
- For i = 1 To 10
- k = k + 1
- myR = myR + 1
- Randomize
- mass(i) = Round((10 + (Rnd * 89.99)), 2)
- Range("A" & myR) = k
- Range("B" & myR) = mass(i)
- Next i
Спойлер
Собственно а что мне делать дальше с этими числами?
" Мне не столь нужно решение, сколько объяснение. Объясните пожалуйста как решаются подобные задачки.Решение задачи: «Как выяснить, будет ли последовательность убывающей?»
textual
Листинг программы
- for i=1 to 9
- if mass(i)<=mass(i+1)then msgbox"Не убывающая":END
- next
- msgbox"Убывающая"
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д