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