График не показывается в программе! В чем Ошибка? - VB
Формулировка задачи:
Здравствуйте, у меня проблема в программе которая вычисляет корни методом половинного деления. Она выдает правильный корень, но график не рисует. В чем ошибка? Помогите пожалуйста. На месте где код подчеркнут и выделен жирно Basic показывает исправить. Вот код программы:
Dim X As Single
Dim A, B, E, C As Double
Private Sub cmd1_Click()
'график
'ÇЗадание масштаба
PicGraph.Scale (-1.5, 2)-(1.5, -2)
'Ось Х
PicGraph.Line (-1.5, 0)-(1.5, 0)
For i = -1.5 To 1.5 Step 0.5
PicGraph.PSet (i, 0)
PicGraph.Print i
Next i
'Ось Y
PicGraph.Line (0, 2)-(0, -2)
For i = -2 To 2
PicGraph.PSet (0, i)
PicGraph.Print i
Next i
'Построение графика
For X = -2 To 2 Step 0.01
PicGraph.PSet (X, X ^ 2 - Log(1 + X) - 3)
Next X End Sub Private Sub Cmd2_Click() A = Val(TxtA.Text) B = Val(TxtB.Text) E = Val(TxtE.Text) Do C = (A + B) / 2 If (A ^ 2 - Log(1 + A) - 3) * (C ^ 2 - Log(1 + C) - 3) < 0 Then B = C Else A = C End If Loop While Abs((B - A)) / 2 > E TxtX.Text = (A + B) / 2 End SubРешение задачи: «График не показывается в программе! В чем Ошибка?»
textual
Листинг программы
For X = -2 Log(1 + X)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д