Как выяснить, будет ли последовательность убывающей? - VB

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

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

Для начало, наверное, напишу что от меня хотят.

Дана последовательность действительных чисел а1, а2,..., а10, элементы которой образована с помощью датчика случайных чисел из диапазона 10,00-99,99. Элементы последовательности в дробной части имеют не более двух цифр. Выяснить, будет ли она убывающей.

Я понимаю это так. Создаем подряд 10 рандомных чисел из диапозона. Получаем последовательность. И проверяем ее на то какая она. ( возрастает или убывает, ну или равномерная ) Вообщем вот я написал код для создания последовательности:
Листинг программы
  1. Dim mass(1 To 10) As Double
  2. Dim i As Integer
  3. Dim k As Integer
  4. k = 0
  5. myR = 0
  6. For i = 1 To 10
  7. k = k + 1
  8. myR = myR + 1
  9. Randomize
  10. mass(i) = Round((10 + (Rnd * 89.99)), 2)
  11. Range("A" & myR) = k
  12. Range("B" & myR) = mass(i)
  13. Next i
И получаю следующее:
Спойлер
Десять чисел есть. Вопрос: "

Собственно а что мне делать дальше с этими числами?

" Мне не столь нужно решение, сколько объяснение. Объясните пожалуйста как решаются подобные задачки.

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

textual
Листинг программы
  1. for i=1 to 9
  2.   if mass(i)<=mass(i+1)then msgbox"Не убывающая":END
  3. next
  4. msgbox"Убывающая"

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


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

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

13   голосов , оценка 4.154 из 5

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

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

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы