Дано задание. Пересчитать значения элементов вектора М размерности n по правилу:Mk=(Mk + 2)/ (Mk - 2), при Mk не равным 2 .Проанализировать выполнение программы на примере: М={2; 0; 3; 10; -1; 6; 1; 2} Необходим скрин с выполненным решение, результат. 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 "Результат", MEnd SubPrivate 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 PrintEnd Sub
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
1) Браузер
2) Таблица
3) 2 ( обновить ссылку на странице, которая будет вести на новую страницу n, и на самой странице n)
4) Графически представлять данные с графиков и диаграмм, выводить на печать электронные таблицы; вычислять и анализировать данные, а также пересчитывать значения при изменении данных; создавать, открывать, редактировать, а также сохранять таблицы в файле
5)Название документа, название программы и кнопки управления окном
6)Числовые данные
7)Один столбец с числами
8)Параметры диаграммы, тип и вид диаграммы и источник данных диаграмм
Все ответы проверены