Убывающая последовательность и сжатие одномерного массива - VB

  1. Помогите сделать пожалуйста... Задача 1 Составьте программу на языке VBA, которая определяет, является ли последовательность убывающей (длина последовательности не ограничена). Признаком конца последовательности является ввод нуля. Задача 2 Составьте программу на языке VBA, которая сжимает одномерный массив A длинной n элементов путем удаления элементов, совпадающих с числом L, и указывает количество удаленных элементов. Программа должна проверять правильность введенных пользователем данных и, если они неверные (n ) ), выдавать сообщение об ошибке.Добавлено через 7 минут Для первой начал, но не могу додумать...


textual

Код к задаче: «Убывающая последовательность и сжатие одномерного массива - VB»

Sub qq()
    Dim a#, b#, f%
    b=1E308
    Do
        a = Val(InputBox("Введите число (0 - конец ввода)"))
        If a = 0 Then Exit Do
        if a>=b then f=1
        b = a
    Loop
MsgBox IIf(f = 0, "Последовательность убывающая", _
"Последовательность не является убывающей")
end sub

СДЕЛАЙТЕ РЕПОСТ

14   голосов, оценка 4.000 из 5



Похожие ответы
  1. Задан целочисленный массив из 10 элементов 1) определить, есть ли в массиве последовательность из n повторяющихся элементов, стоящих подряд. n пользователь вводит. подводный камень: 3334445551 - n должно быть <=3,однако при неправильном коде(как у меня) выводит,что,допустим, 5 элементов тоже есть

  1. Дана последовательность чисел. Нужно определить, соблюдается ли последовательность чередования четных и не четных цифр (то есть, если это 123456, то соблюдается, а если 12356 то не соблюдается)

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

  1. Дана числовая последовательность целых чисел, оканчивающаяся нулем элементов. Определить количество чисел, которые делятся на 7;

  1. Помогите пожалуйста с решением. Примерно в голове алгоритм есть, а как реализовать не могу понять;( срочно надо!

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

  1. Помогите пожалуйста. Не получается решить задачу

  1. Дана числовая последовательность .Подсчитать сумму с точностью 0,000001

  1. Дана числовая последовательность {1,3,5...m}. Найти сумму первых пятидесяти членов

  1. Какое условие нужно поставить чтоб определить количество целых чисел, входящих в указанную последовательность один раз.