Построить график функции - VB (62045)

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

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

Решение задачи: «Построить график функции»

textual
Листинг программы
Option Explicit
Dim x As Single
Dim y As Single
Dim i As Integer
Dim a As Integer
Dim b As Integer
Dim c  As Integer
Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
c = Text3.Text
Picture1.Scale (-3, 5)-(5, -5)
For x = -3 To 4 Step 0.005
y = a * x ^ 2 + b * x + c
Picture1.PSet (x, y), vbRed
Next x
Picture1.Line (-3, 0)-(5, 0), vbBlue
For i = -3 To 4
Picture1.PSet (i, 0), vbBlue
Picture1.Print i
Next i
Picture1.Line (0, 5)-(0, -5), vbBlue
For i = -4 To 5
Picture1.PSet (0, i), vbRed
Picture1.Print i
Next i
End Sub

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


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

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

12   голосов , оценка 3.833 из 5