Описать процедуру Invert(A, N), меняющую порядок следования элементов вещественного массива A размера N на противоположный - VB

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

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

Описать процедуру Invert(A, N), меняющую порядок следования элементов вещественного массива A размера N на противоположный (инвертирование массива). Массив A является входным и выходным параметром. С помощью этой процедуры инвертировать массивы A, B, C размера NA, NB, NC соответственно.

Решение задачи: «Описать процедуру Invert(A, N), меняющую порядок следования элементов вещественного массива A размера N на противоположный»

textual
Листинг программы
Sub Invert(A() as double, n as integer)
Dim tmp as double
     For i%=1 to n\2
          tmp=A(i%)
          A(i%)=A(n-i%+1)
          A(n-i%+1)=tmp
     Next i%
End Sub

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

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