Описать процедуру 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

Похожие ответы