Теми рефератів

> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти

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

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

Тема: Курсовые проекты

CommandButton3_Click ()

Range ("a1"). Value = 0

Range ("a2"). Value = 0

Range ("a3"). Value = 0

Range ("a4"). Value = 0

Range ("a5"). Value = 0

Range ("a6"). Value = 0

Range ("a7"). Value = 0

Range ("a8"). Value = 0

Range ("a9"). Value = 0

Range ("a10"). Value = 0

Range ("a11"). Value = 0

Range ("a12"). Value = 0

Range ("a13"). Value = 0

Range ("a14"). Value = 0

Range ("a15"). Value = 0

Range ("a16"). Value = 0

Range ("a17"). Value = 0

Range ("a18"). Value = 0

Range ("a19"). Value = 0

Range ("a20"). Value = 0

Range ("a21"). Value = 0

End Sub

Private Sub UserForm_initialize ()

st = 0

ko = 0

TextBox1.Value = ko

TextBox2.Value = st

End Sub

FORM_KORNI

Private Sub CommandButton1_Click ()

ListBox1.Clear

TextBox1.Value = 0

Form_Korni.Hide

End Sub

Private Sub CommandButton2_Click ()

Range ("Toc"). Value = TextBox1.Value

Call FindKor

'Call Perenos

End Sub

Sub FindKor ()

Range ("Curright") = Range ("Right"). Value

Range ("Curleft") =-Range ("Right"). Value - 0.333

'Range ("right"). Value = DetectBorders

Range ("Stepleft"). Value = Range ("right"). Value * (-1) - 0.333

nashli = False

Call MoveLe

If Sgn (F (Range ("curleft"). Value)) = Sgn (F (Range ("curright"). Value)) Then

End If

If Sgn (F (Range ("curleft"). Value)) <> Sgn (F (Range ("curright"). Value)) Then

'nashli = True

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

If Abs (F (Range ("Curcenter"). Value))> Range ("toc"). Value Then If Sgn (F (Range ("curleft"). Value)) <> Sgn (F (Range ("curcenter"). Value)) Then Range ("curright"). Value = Range ("curcenter"). Value Else: Range ("curleft"). Value = Range ("curcenter"). Value

If Abs (F (Range ("Curcenter"). Value)) <= Range ("toc"). Value Then ListBox1.AddItem (Range ("Curcenter"). Value)

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

Loop Until Abs (F (Range ("Curcenter"). Value)) <= Range ("toc"). Value

End If

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

End Sub

Sub Horda_Kas ()

'Sub FindKor ()

Range ("Curright") = Range ("Right"). Value

Range ("Curleft") =-Range ("Right"). Value - 0.333

'Range ("right"). Value = DetectBorders

Range ("Stepleft"). Value = Range ("right"). Value * (-1) - 0.333