Циклы с постусловием в VBA

Узнай цену своей работы

Формулировка задачи:

Составить программу вычисления значений функции F(x) на отрезке [a,b] с шагом h. Результат представить в виде таблицы, первый столбец которой – значения аргумента, второй – соответствующие значения функции F(x) = sin*sin(x)+cos(x);

Решение задачи: «Циклы с постусловием в VBA»

textual
Листинг программы
Sub vvv()
Dim a#, b#, i#, mas(), h#, n%
'--------- вводим "a"
a = Replace(InputBox("Введите нижнюю границу диапазона ""а""", "ВВОД ДАННЫХ"), ".", ",")
'--------- вводим "b", при этом проверяем чтобы b>a т.к. b - верхняя граница диапазона --
Do
b = Replace(InputBox("Введите верхнюю границу диапазона ""b""", "ВВОД ДАННЫХ"), ".", ",")
Loop Until b > a
'--------- вводим "h" ------------------------------------------------------------------
h = Replace(InputBox("Введите шаг ""h""", "ВВОД ДАННЫХ"), ".", ",")
'--------- объявляем массив для внесения в него данных и вывода его на лист ------------
ReDim mas(1 To Application.RoundUp((b - a) / h + 1, 0), 1 To 2)
'--------- цикл от а до b с шагом h
For i = a To b Step h
  n = n + 1
  mas(n, 1) = i
  mas(n, 2) = Sin(i) * Sin(i) + Cos(i) ' sin*sin(x)+cos(x)
Next
If mas(UBound(mas), 1) = "" Then mas(UBound(mas), 1) = b: mas(UBound(mas), 2) = Sin(b) * Sin(b) + Cos(b)
'----------- выводим на лист начиная с ячайки А1 --------------------
Cells(1, 1).Resize(UBound(mas), 2) = mas
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4 из 5