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

Табулирование

Private Sub Command1_Click()

Label4.Caption = "Введите интервал, на которм табулируем функцию"

Text1 = M

Text2 = N

End Sub

Private Sub Command2_Click()

M = Text1

N = Text2

For x = M To N Step 0.1

y = 3 * Sin(x ^ 0.5) + 0.35 * x - 3.8

List1.AddItem Format(y, "0.000")

Next

End Sub

Private Sub Command3_Click()

Label4.Caption = "Введите новый интервал, на которм табулируем функцию"

Text1 = M

Text2 = N

List1.Clear

End Sub

Private Sub Command4_Click()

End

End Sub