Пересчитать вектор М размерности К так, чтобы поменялись местами значения первого элемента и последнего, второго и предпоследнего и т.д - VB

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

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

Пересчитать вектор М размерности К так, чтобы поменялись местами значения первого элемента и последнего, второго и предпоследнего и т.д. Исходный и полученный векторы напечатать. Проанализировать выполнение программы на примере: М={1; 2; 3; 4; 5; 6; 7; 8; 9; 10} Помогите плииииз!!!

Решение задачи: «Пересчитать вектор М размерности К так, чтобы поменялись местами значения первого элемента и последнего, второго и предпоследнего и т.д»

textual
Листинг программы
  1. Private Sub Command1_Click()
  2. Dim m()
  3. m = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
  4. n = UBound(m)
  5. Label1 = ""
  6. Label2 = ""
  7. 'вывод исходного массива
  8. For i = 0 To n
  9.     Label1 = Label1 & " " & m(i)
  10. Next
  11. 'обработка
  12. For i = 0 To n \ 2
  13.     t = m(i)
  14.     m(i) = m(n - i)
  15.     m(n - i) = t
  16. Next
  17. 'вывод полученного массива
  18. For i = 0 To n
  19.     Label2 = Label2 & " " & m(i)
  20. Next
  21. End Sub

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


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

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

12   голосов , оценка 4.083 из 5

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

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

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