Задан массив из n вещественных чисел yi i=1,n (namp;lt;=15) Вычислить элементы

Задан массив из n вещественных чисел yi i=1,n (nlt;=15) Вычислить элементы нового массива zi) по данным правилам : zi= yi^1/2 если уgt;0 и четное. уi в неприятном случае. Нужен полный текст программки . Vba excel

Задать свой вопрос
1 ответ
В проекте код поместить на листе, где находятся данные.
Записать числа в столбец, выделить заполненные ячейки, позже запустить данный код.

Sub abcd()
    Dim r As Range
    Set r = Selection
    firstRow = r.Rows(1).Row
    yiCol = r.Columns(1).Column
    n = r.Rows.Count
    ReDim yi(1 To n) As Double, zi(1 To n) As Double
    For i = 1 To n
        yi(i) = Cells(firstRow + i - 1, yiCol)
        zi(i) = IIf(yi(i) gt; 0 And i Mod 2 = 0, Sqr(yi(i)), yi(i))
        Cells(firstRow + i - 1, yiCol + 1) = zi(i)
    Next i
End Sub
Михаил Вузман
Числа необходимо вводить через Inputbox
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт