Составить программу многократного вычисления значений функции при изменении аргумента в указанном диапазоне и с заданным - 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

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

6   голосов , оценка 4 из 5
Похожие ответы