Составить программу вычисления и выдачи на печать суммы (или произведения) N элементов бесконечного числового ряда. Y = (2 + 1/81) — (4 — 2/27) + (8 + 4/9) — (16 — 8/3) + … — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
INPUT " vvedite kol-vo elementov ", n
k = 243
t = 1
FOR i = 1 TO n
    t = t * 2
    k = k / 3
    y = y + (-1) ^ (i + 1) * (t + (-1) ^ (i + 1) * 2 ^ (i - 1) / k)
NEXT
PRINT y

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment