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