Вычислить сумму для бесконечного ряда- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
CLS
eps = 0.001
DO
    PRINT "vvedite x(x < 0.5):"
    INPUT x
LOOP WHILE ABS(x) >= 0.5
z = x ^ 2
DO
    t = (-1) ^ n * z ^ (2 * n + 1) / (2 * n + 1)
    y = y + t
    PRINT n, USING "##.#########"; t
    n = n + 1
LOOP WHILE ABS(t) > eps
PRINT "summa ravna:"; USING "##.#########"; y
s = ATN(x ^ 2)
PRINT "Tochonoe znachenie:"; USING "##.#########"; s
PRINT "Pogresnost rasheta sostavila:";
PRINT USING "##.#########"; ABS(y - s)

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

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

Leave a Comment