Заменить каждый элемент массива с четным номером на среднее арифметическое соседних элементов - VB

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

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

Добрый вечер господа! Смею просить у вас помощи. Будучи студентом управленцем, я немного далек от программирования, но тем не менее большая часть курсача по информатике сделана,осталось немногое ,но не поддающееся пониманию глупого гуманитария. Это задачка на Массивы + небольшая программа. Буду очень признателен ,если вы откликнитесь и поможете! Вот задание 1.Дан массив из N чисел. Заменить каждый элемент массива с четным номером на среднее арифметическое соседних элементов. 2.Ввести: название туристической фирмы, 3 вида поездок, обеспечиваемых этой фирмой, средние стоимости этих поездок. Известен вид интересующей клиента поездки. Определить возможность туристической фирмы по отношению к клиенту, а так же стоимость. Результат вывести в виде таблицы. Заранее огромное спасибо специалистам, которые откликнуться и помогут! Были бы мозги- пошел бы в программисты)))

Решение задачи: «Заменить каждый элемент массива с четным номером на среднее арифметическое соседних элементов»

textual
Листинг программы
Private Sub Command1_Click()
    Dim d() As Double, i As Integer, n As Integer, s As String
    Randomize
    s = "CГІГ*ðûé: " + vbTab
    n = CInt(InputBox("Ââåäèòå N"))
    ReDim d(n)
    For i = 1 To n
        d(i) = CInt(50 * Rnd)
        s = s + CStr(d(i)) + vbTab
    Next
    s = s + vbCrLf + "Íîâûé :" + vbTab
    For i = 2 To (n - (n - 1) Mod 2) Step 2
        d(i) = (d(i - 1) + d(i + 1)) / 2
    Next
    For i = 1 To n
        s = s + CStr(d(i)) + vbTab
    Next
    MsgBox s
End Sub

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


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

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

7   голосов , оценка 3.714 из 5
Похожие ответы