Записать и отладить программу - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д