Заменить каждый элемент массива с четным номером на среднее арифметическое соседних элементов - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д