Составить программу многократного вычисления значений функции при изменении аргумента в указанном диапазоне и с заданным - VB (250649)
Формулировка задачи:
3. Составить программу многократного вычисления значений функции при изменении аргумента в указанном диапазоне и с заданным шагом. Организовать вывод значения аргумента и вычисленного значения функции в виде таблицы:
Таблица функций Y(X):
X Y
... ...
... ...
Не считает. Не пойму, в чём проблема.Решение задачи: «Составить программу многократного вычисления значений функции при изменении аргумента в указанном диапазоне и с заданным»
textual
Листинг программы
Option Explicit Dim x As Single, y As Single Dim a As Single, b As Single Private Sub cmd1_Click() a = 2.6 b = -0.39 txt1.Text = "Таблица функции Y(X)" txt1.Text = txt1.Text + vbCrLf + " X Y" For x = 0.5 To 7 Step 0.5 If x < 2.8 Then y = (a + b) / (Exp(x) + Cos(x)) ElseIf 2.8 <= x And x < 6 Then y = (a + b) / (x + 1) Else y = Exp(x) + Sin(x) End If txt1.Text = txt1.Text + vbCrLf + _ Format(x, " 0.00") + " " + Format(y, "0.00000") Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д