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

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

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

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

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

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

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


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

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

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