Пересчитать вектор N размерности k no правилу: Ni=Ni+Ni+1, при i < k - VB

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

1. Пересчитать вектор N размерности k no правилу: Ni=Ni+Ni+1, при i < k Проанализировать выполнение программы на примере: N={1; 2; 3; 4; 5; 6; 7; 8}

Код к задаче: «Пересчитать вектор N размерности k no правилу: Ni=Ni+Ni+1, при i < k - VB»

textual
Private Sub Command1_Click()
    Dim N, i As Integer, k As Integer
    
    N = Array(1, 2, 3, 4, 5, 6, 7, 8)
    k = Ubound(N)
 
    Print "Исходный массив "
    For i = 0 To k
      Print N(i); vbTab;
    Next i
    
    i = 0
    Do While i < k
          N(i) = N(i) + N(i) + 1
          i = i + 1
    Loop
    
    Print
    Print "Результат "
    For i = 0 To k
        Print N(i); vbTab;
    Next i
    
End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

7   голосов, оценка 4.143 из 5


СДЕЛАЙТЕ РЕПОСТ