Вычислить функцию 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.143 из 5