Протабулировать функцию - VB (170307)

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

Протабулировать функцию y= (x sin3x+x^3+5cosx)/√(x^2+3) Значения a , b , h ввести с помощью полей ввода TextBox , таблицу значений аргумента и функц ии вывести на надпись

Решение задачи: «Протабулировать функцию»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim x As Double, y As Double, a As Integer, b As Integer, h As Single
a = Val(Text1)
b = Val(Text2)
h = Val(Text3)
Label1 = ""
x = a
Do While x <= b
    y = (Sin(3 * x) + x ^ 3 + 5 * Cos(x)) / Sqr(x ^ 2 + 3)
    Label1 = Label1 & "x = " & Round(x, Len(x)) & Space(10) & vbTab & "y = " & Round(y, 5) & Chr(13) & Chr(10)
    x = x + h
Loop
End Sub
                        

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

11 голосов , оценка 4.364 из 5

Похожие ответы