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

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





p>

If Range ("a12") <0 Then mn = mn + Range ("a12"). Text + "X ^ 12"


If Range ("a11")> 0 Then mn = mn + "+" + Range ("a11"). Text + "X ^ 11"

If Range ("a11") <0 Then mn = mn + Range ("a11"). Text + "X ^ 11"


If Range ("a10")> 0 Then mn = mn + "+" + Range ("a10"). Text + "X ^ 10"

If Range ("a10") <0 Then mn = mn + Range ("a10"). Text + "X ^ 10"


If Range ("a9")> 0 Then mn = mn + "+" + Range ("a9"). Text + "X ^ 9"

If Range ("a9") <0 Then mn = mn + Range ("a9"). Text + "X ^ 9"


If Range ("a8")> 0 Then mn = mn + "+" + Range ("a8"). Text + "X ^ 8"

If Range ("a8") <0 Then mn = mn + Range ("a8"). Text + "X ^ 8"


If Range ("a7")> 0 Then mn = mn + "+" + Range ("a7"). Text + "X ^ 7"

If Range ("a7") <0 Then mn = mn + Range ("a7"). Text + "X ^ 7"


If Range ("a6")> 0 Then mn = mn + "+" + Range ("a6"). Text + "X ^ 6"

If Range ("a6") <0 Then mn = mn + Range ("a6"). Text + "X ^ 6"


If Range ("a5")> 0 Then mn = mn + "+" + Range ("a5"). Text + "X ^ 5"

If Range ("a5") <0 Then mn = mn + Range ("a5"). Text + "X ^ 5"


If Range ("a4")> 0 Then mn = mn + "+" + Range ("a4"). Text + "X ^ 4"

If Range ("a4") <0 Then mn = mn + Range ("a4"). Text + "X ^ 4"


If Range ("a3")> 0 Then mn = mn + "+" + Range ("a3"). Text + "X ^ 3"

If Range ("a3") <0 Then mn = mn + Range ("a3"). Text + "X ^ 3"


If Range ("a2")> 0 Then mn = mn + "+" + Range ("a2"). Text + "X ^ 2"

If Range ("a2") <0 Then mn = mn + Range ("a2"). Text + "X ^ 2"


If Range ("a1")> 0 Then mn = mn + "+" + Range ("a1"). Text + "X"

If Range ("a1") <0 Then mn = mn + Range ("a8"). Text + "X"


If Range ("a21")> 0 Then mn = mn + "+" + Range ("a21"). Text

If Range ("a21") <0 Then mn = mn + Range ("a21"). Text


TextBox1.Value = mn

End Sub

FORM_WP

Private Sub Label1_Click ()

Call Gra

End Sub


Private Sub CommandButton1_Click ()

Sheets ("D1"). Print

End Sub


Private Sub CommandButton2_Click ()

Form_WP.Hide

Call Gra

End Sub


Private Sub UserForm_Click ()

Form_WP.Hide

End Sub




























____________________________

VoID InVaSiON HG В©

VI Function 2.0 beta

[1] Цей факт був доведений відомими математиками Абель і Галуа.



Назад | сторінка 13 з 13





Схожі реферати:

  • Реферат на тему: Оптимізація та управління технологічним процесом обслуговування АТС (на при ...
  • Реферат на тему: Phonetic peculiarities of the popular science text
  • Реферат на тему: Grammar of the Text: its Basic Units and Main Features (based on the novel ...
  • Реферат на тему: Технології аналізу даних (Text Mining, Data Mining)
  • Реферат на тему: Знаходження критичного шляху табличним методом