Нахождение определенного интеграла методом правых прямоугольников Visual Basic

13.04.2010, 18:44. **Показов** 7393. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Ребят помогите пожалуйста кто знает!?

Значит нужно
Разработать программу нахождения значения определенного интеграла методом прямоугольников(правых).
Функция для интегрировнаия:
y=( (корень(x-15) ) / (корень(x+3) ) + 2cosx/sin2x
Интервал [20;40]

@YuraAAA · 13.04.2010, 19:06

Думаю как-то так

Visual Basic

Public b As Single
Public a As Single
Public Function f(d)
f = (Sqr(d - 15) / Sqr(d + 3)) + 2 * (Cos(d) / (2 * Sin(d * 2)))
End Function
Private Sub Command1_Click()
a = 20 'Нижний предел
b = 40 'Верхний предел
h = 1 ' Шаг
integral = 0
For d = a To b - h Step h
integral = integral + h * f(d)
Next d
Text1.Text = Round(Abs(integral), 3)
End Sub

maiska91
		1
	Нахождение определенного интеграла методом правых прямоугольников Visual Basic 13.04.2010, 18:44. Показов 7393. Ответов 1 Метки нет (Все метки) Ребят помогите пожалуйста кто знает!? Значит нужно Разработать программу нахождения значения определенного интеграла методом прямоугольников(правых). Функция для интегрировнаия: y=( (корень(x-15) ) / (корень(x+3) ) + 2cosx/sin2x Интервал [20;40]

	13.04.2010, 19:06