Прошу, помогите у меня никак не получается сделать в визуал бейсик программу как
Прошу, помогите
у меня никак не получается сделать в визуал бейсик программу какпо алгоритму, что-то не так.
вот код:
Private Sub Command1_Click()
Dim a As Integer, b As Integer, h As Integer
Text1.Text = a
Text2.Text = b
Text3.Text = h
s = 0
For x = a + h To b - 1 Step h
s = s + f
Next x
S1 = s + a * h
S2 = s + b * h
S3 = S1 + S2 / 2
f = x * x / x * x + 4
Text4.Text = S3
End Sub
Гость
Ответ(ы) на вопрос:
Гость Function F(x)
F = x * x / Math.sqrt(x * x + 4)
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer, h As Integer
a = Text1.Text
b = Text2.Text
h = Text3.Text
s = 0
For x = a + h To b - 1 Step h
s = s + f(x)
Next x
S1 = s + f(a) * h
S2 = s + f(b) * h
Stp = S1 + S2 / 2
Text4.Text = Stp
End Sub
не до конца поняла, что за задание и что делает этот алгоритм, но так наверное будет ближе к тому что нужно
Не нашли ответ?
Похожие вопросы