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

Ответы 6

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

      cassie40
    • 6 лет назад
    • 0
  • Где об этом написано?
    • Автор:

      erico
    • 6 лет назад
    • 0
  • Мысли, уважаемый, на этом Сервисе, не читают.
    • Автор:

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

      taliyah
    • 6 лет назад
    • 0
  • Модераторы пометку Вашу снимут, а вот мнение о Вас останется.
  • В проекте код поместить на листе, где находятся данные.Записать числа в столбец, выделить заполненные ячейки, потом запустить данный код.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 iEnd Sub
    answer img
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years