Вывести на печать значение функции - 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

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


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

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

14   голосов , оценка 4.143 из 5
Похожие ответы