Создание программы для построения графика функции - VB

Узнай цену своей работы

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

Составить программу построения графика функции : y = 3*(cos(x/5))3 Пределы построения: -20<x<20

Решение задачи: «Создание программы для построения графика функции»

textual
Листинг программы
Private Sub Command1_Click()
Picture1.AutoRedraw = True
Dim x#
a = -20: b = 20: dx = 0.01
Picture1.Scale (a, 10)-(b, -10)
Picture1.Line (a, 0)-(b, 0): Picture1.Line (0, 10)-(0, -10)
For x = a + dx To b Step dx
Picture1.Line (x, Sin(f(x)))-(x - dx, f(x - dx)), RGB(Abs(f(x)) * 255 / 4, 0, 0)
Next
End Sub
Function f#(x#)
f = 3 * (Cos(x / 5)) ^ 3
End Function

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


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

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

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