Шпоры по информатике3 / Табулиров на зад отрез

Табулирование на заданном отрезке

Private Sub Command1_Click()

Label2.Caption = "Будет произведено табулирование функции на отрезке [0;3] с шагом 0.15 "

End Sub

Private Sub Command2_Click()

For t = 0 To 3 Step 0.15

If t < 1 Then y = 1

If t >= 1 And t <= 2 Then y = (-0.5) * (t ^ (2 * Log(t)))

If t > 2 Then y = (2.71 ^ ((-0.5) * t)) * Cos(2 * t)

List1.AddItem Format(y, "0.000")

Label2.Caption = ""

Label3.Caption = "Результат"

Next

End Sub

Private Sub Command3_Click()

List1.Clear

Label2.Caption = "Будет произведено табулирование функции на отрезке [0;3] с шагом 0.15 "

Label3.Caption = ""

End Sub

Private Sub Command4_Click()

End

End Sub