Записать и отладить программу - VB

Формулировка задачи:

Записать и отладить программу табуляции следующей функции.

Код к задаче: «Записать и отладить программу - VB»

textual
Option Explicit
Dim a!, b!, h!, x!, y!, i%, x0!
Dim x3$
 
Private Sub cmdD_Click()
    Cls
        a = Val(txtA.Text)
        b = Val(txtB.Text)
        h = Val(txtH.Text)
        txtT.Text = ""
    
    For x = a To b + h / 2 Step h
        x0 = Int(1000 * x) / 1000
        x3 = Left(Str(x0), 4)
        If x < 0.2 Then
            y = f(x)
            txtT.Text = txtT.Text + "X = " + x3
            txtT.Text = txtT.Text + "  Y = " + Str(y) + Chr(13) + Chr(10)
        Else
            txtT.Text = txtT.Text + "X = " + x3
            txtT.Text = txtT.Text + "  Y = " + "     -----" + Chr(13) + Chr(10)
        End If
    Next
End Sub
 
Private Function f(x!) As Single
    f = 5 * Sqr((Abs(2 * Cos(2 * x ^ 2) ^ 3 - 3 * Sin(3 * x ^ 3) ^ 2)) / (0.2 - x))
End Function

15   голосов, оценка 4.133 из 5


СОХРАНИТЬ ССЫЛКУ