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