Номер первого отрицательного чиста в последовательности - VBA
Формулировка задачи:
В последовательности sinx^n (n=1,2,…,30) найти номер первого отрицательного числа. Если такого не найдется, выдать сообщение. Значения элементов последовательности поместить в ячейки столбца C.
Пожалуйста, напишите синтаксис от Do до Loop
Заранее большое спасибо.
Решение задачи: «Номер первого отрицательного чиста в последовательности»
textual
Листинг программы
Dim Y(1 To 30), n#, x#
x = 0.5
Do
n = n + 1
Y(n) = Sin(x) ^ n
If Y(n) < 0 Then MsgBox "при n=" & n & " ф-ция имеет отрицательный ответ.": Exit Do
Loop Until n = 30
MsgBox "при x=" & x & " ф-ция не имеет отрицательный ответ."
Range("C1").Resize(30, 1) = Application.Transpose(Y)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д