• Вопрос по информатике:

    Кароче,я сделал 2 списка с рабочим кодом

    А вот с 3им проблема,выходит ошибка

    Это в экселе макрос вижуал бэйсик

    .В двух списках записаны числа, указывающие первый член и знаменатель геометрической прогрессии. Получить в третьем списке 10 первых членов геометрической прогрессии.


    Private Sub CommandButton4_Click()

    Dim a As Single

    Dim b As Single, m As Single, i As Integer

    a = (ListBox1.Text)

    b = (ListBox2.Text)

    m = a

    ListBox3.AddItem Str(a), 0

    For i = 1 To 9

    a= m

    m = a* b^ i - 1

    ListBox3.AddItem Str(m), i

    Next i

    End Sub

    • Автор:

      peanut33

  • Sn = (b1(q^n - 1))/(q - 1).

    S4 = (b1(q^4 - 1))/(q - 1);

    0.4(q^4 - 1)/(q - 1) = 160;

    (q - 1)(q + 1)(q^2 + 1)/(q - 1) = 160/0.4;

    (q + 1)(q^2 + 1) = 400;

    q^3 + q + q^2 + 1 - 400 = 0;

    q^3 + q^2 + q - 399 = 0;

    Среди делителей свободного члена находим один из корней:

    x1 = 7.

    Проверка:

    7^3 + 7^2 + 7 - 399 = 0;

    343 + 49 + 7 - 399 = 0;

    399 - 399 = 0.

    Ответ: q = 7.

    

    • Отвечал:

      marisol1ehb
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска