Вывести на печать значение функции - VB
Формулировка задачи:
Доброе время суток, форум
Пожалуйста помогите написать программу, вот исходные данные
Вывести на печать значение функии z=sin(x/(x+2)), находящиеся в интервале (-0,4;0,8), для x, изменяющегося на отрезке [-1;15] с шагом 1,4
Заранее спасибо
Решение задачи: «Вывести на печать значение функции»
textual
Листинг программы
- Option Explicit
- Dim a!, b!, h!, x!, y!, x1!
- Private Sub cmd1_Click()
- txt1 = ""
- a = Val(txtA.Text)
- b = Val(txtB.Text)
- h = Val(txtH.Text)
- For x = a To b Step h
- y = f(x)
- If -0.4 <= y And y <= 0.8 Then
- y = Format(y, "0.0000")
- x1 = Format(x, "0.0")
- txt1.Text = txt1.Text + "x = " + Str(x1) + " y = " + Str(y) + vbCrLf
- End If
- Next
- End Sub
- Private Function f(x As Single) As Single
- f = Sin(x / (x + 2))
- End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
