Вычислить функцию y=f(x) - VB
Формулировка задачи:
Вычеслить F(x) на отрезке [a; b] с шагом h .
Помогите пожалуйста
Решение задачи: «Вычислить функцию y=f(x)»
textual
Листинг программы
Option Explicit Dim a!, b!, h!, k!, x!, y!, x1! Private Sub cmd1_Click() txt1 = "" k = Val(txtK.Text) If k <= 0 Or k >= 10 Then txtK.Text = "5" k = Val(txtK.Text) a = Val(txtA.Text) b = Val(txtB.Text) h = Val(txtH.Text) For x = a To b Step h y = Format(f(x), "0.0") x1 = Format(x, "0.0") txt1.Text = txt1.Text + "x = " + Str(x1) + " y = " + Str(y) + vbCrLf Next End Sub Private Function f(x As Single) As Single f = 2 * Cos(5 * x + k) + 7 * Sin(5 * x) End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д