Пересчитать значения элементов вектора М размерности 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 Print ArrayName For k = LBound(M) To UBound(M) Print M(k) & " "; Next k Print End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д