Пересчитать значения элементов вектора М размерности n - VB
Формулировка задачи:
Помогите, пожалуйста, с решением этого задания.
Пересчитать значения элементов вектора М размерности n по правилу:Mk=(Mk + 2)/ (Mk - 2), при Mk не равным 2
Проанализировать выполнение программы на примере:
М={2; 0; 3; 10; -1; 6; 1; 2}
Напишите код приложения, и, если не сложно, входные и выходные данные.
Решение задачи: «Пересчитать значения элементов вектора М размерности n»
textual
Листинг программы
- Private Sub Command1_Click()
- Dim M, k As Integer
- M = Array(2, 0, 3, 10, -1, 6, 1, 2)
- PrintArray "Исходный вектор", M
- For k = LBound(M) To UBound(M)
- If M(k) <> 2 Then M(k) = (M(k) + 2) / (M(k) - 2)
- Next k
- PrintArray "Результат", M
- End Sub
- Private Sub PrintArray(ByVal ArrayName As String, ByRef M As Variant)
- Dim k As Integer
- Print ArrayName
- For k = LBound(M) To UBound(M)
- Print M(k) & " ";
- Next k
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
