График не показывается в программе! В чем Ошибка? - 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)

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


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

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

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