Протабулировать функцию - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
