Реферат Знаходження всіх дійсних корінь алгебраїчного багаточлена методом розподілу відрізка навпіл (бі. ..

gn (F (Range ("curright"). Value)) Then

Do

'nashli = True

If F1 (Range ("curleft"). Value) * F2 (Range ("curleft"). Value)> 0 Then

Range ("curleft"). Value = Range ("curleft"). Value - ((Range ("curright"). Value - Range ("curleft"). Value) * (F (Range ("Curleft"). Value)/(F (Range ("Curright"). Value - F (Range ("Curleft"). Value)))))

Range ("Curright"). Value = Range ("curright"). Value - F (Range ("curright"). Value)/F1 (Range ("curright"). Value)

End If

В 

If F1 (Range ("curleft"). Value) * F2 (Range ("curleft"). Value) <0 Then

Range ("curright"). Value = Range ("curleft"). Value - ((Range ("curright"). Value - Range ("curleft"). Value) * (F (Range ("Curleft"). Value)/(F (Range ("Curright"). Value - F (Range ("Curleft"). Value)))))

Range ("Curleft"). Value = Range ("curright"). Value - F (Range ("curright"). Value)/F1 (Range ("curright"). Value)

End If

В 

If Abs (Abs (F (Range ("Curright"). Value))) - Abs (F (Range ("Curleft"). Value)) <= Range ("toc"). Value Then

'MsgBox (Range ("curleft"). Value)

ListBox1.AddItem (Range ("Curright"). Value)

'If ((Range ("Curleft"). Value) + (Range ("Curright"). Value))> 0 Then ListBox1.AddItem (((Range ("Curleft"). Value) + (Range ("Curright"). Value))/2)

'If ((Range ("Curleft"). Value) + (Range ("Curright"). Value)) <0 Then ListBox1.AddItem (((Range ("Curleft"). Value) + (Range ("Curright"). Value))/2)

Range ("Koren"). Value = Range ("Curleft"). Value

End If

В В 

Loop Until Abs (F (Range ("Curright"). Value)) - Abs (F (Range ("Curleft"). Value)) <= Range ("toc"). Value

В 

End If

Loop Until Range ("Stepleft"). Value> Range ("right"). Value Or nashli = True

End Sub

Sub MoveLe ()

Range ("stepleft"). Value = Range ("stepleft"). Value + 0.333

Range ("curLeft"). Value = Range ("stepleft"). Value

Range ("Curright"). Value = Range ("Curleft"). Value + 0.333

Range ("Curcenter"). Value = ((Range ("curleft"). Value) + (Range ("curright"). Value))/2

End Sub

Private Sub CommandButton3_Click ()

Horda_Kas

End Sub

Private Sub UserForm_Deactivate ()

ListBox1.Clear

TextBox1.Value = 0

End Sub

Sub Perenos ()

Range ("a1"). Value = Range ("L1"). Value

Range ("a2"). Value = Range ("L2"). Value

Range ("a3"). Value = Range ("L3"). Value

Range ("a4"). Value = Range ("L4"). Value

Range ("a5"). Value = Range ("L5"). Value

Range ("a6"). Value = Range ("L6"). Value

Range ("a7"). Value = Range ("L7"). Value

Range ("a8"). Value = Range ("L8"). Value

Range ("a9"). Value = Range ("L9"). Value

Range ("a10"). Value = Range ("L10"). Value

Range ("a11"). Value = Range ("L11"). Value <...