Найти N элементов одномерного массива - VB
Формулировка задачи:
Вот не пойму смысл этой задачки по одномерным массивам:
1. Найти N элементов одномерного массива X1=X2=X3=1; Xk=X(k-1)+X(k-2)-1/K
А здесь где-то ошибка:
2. Поменять местами симметрично элементы верхней четверти и нижней четверти матрицы А(5х5), разделенной диагоналями на четыре части
Листинг программы
- Sub n4()
- Dim i, j, S, A(5, 5), B(5, 5), C(5, 5) As Integer
- For i = 1 To 5
- For j = i To 5 - i + 1
- A(i, j) = Cells(i, j)
- Next
- Next
- For i = 1 To 5
- For j = 5 - i + 1 To i
- B(i, j) = Cells(i, j)
- Next
- Next
- For i = 1 To 5
- For j = 1 To 5
- C(i, j) = A(i, j)
- A(i, j) = B(i, j)
- B(i, j) = C(i, j)
- Next
- Next
- For i = 1 To 5
- For j = i To 5 - i + 1
- Cells(i, j) = A(i, j)
- Next
- Next
- For i = 1 To 5
- For j = 5 - i + 1 To i
- Cells(i, j) = B(i, j)
- Next
- Next
- End Sub
Решение задачи: «Найти N элементов одномерного массива»
textual
Листинг программы
- Dim i%, S!, n%, x2!, x3!, x!
- n = Val(InputBox("n-? /n>3/"))
- If n > 3 Then
- x2 = 1: x3 = 1: S = 3
- For i = 4 To n
- x = x3 + x2 - 1 / i
- S = S + x
- x2 = x3: x3 = x4
- Next i
- MsgBox "S(" & n & ")=" & S
- Else
- MsgBox "n>3 !"
- End If
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
