Осуществите циклический сдвиг компонент заданного вектора - VB

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

Помогите пожалуйста. Осуществите циклический сдвиг компонент заданного вектора A(N) влево на одну позицию, то есть получите вектор А = (a2 , a3 , ..., aN , a1 ).

Решение задачи: «Осуществите циклический сдвиг компонент заданного вектора»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub LRot(A() As integer)
      n%=Ubound(A,1)
      a1%=A(1)
      for i%=1 to n%-1
          A(i%)=A(i%+1)
      next i%
      A(n%)=a1%
End Sub

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

9 голосов , оценка 3.667 из 5

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

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

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