Question

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

Answer 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) > 0 And i Mod 2 = 0, Sqr(yi(i)), yi(i))
        Cells(firstRow + i - 1, yiCol + 1) = zi(i)
    Next i
End Sub

Answer 2

Числа нужно вводить через Inputbox

Answer 3

Где об этом написано?

Answer 4

Мысли, уважаемый, на этом Сервисе, не читают.

Answer 5

А вот пометка ошибочным решения, сделанного в полном соответствии с вопросом, свидетельствует о Вашей, извините, глупости. И, заодно, это сигнал с Вами дел в будущем не иметь.

Answer 6

Модераторы пометку Вашу снимут, а вот мнение о Вас останется.