Скачиваний:
23
Добавлен:
06.11.2017
Размер:
35.4 Кб
Скачать

Reshenie(x,eps,n)

End

sum = 1

a = x

Do Until Abs(a)<eps

sum = sum + a

z = z+n+a, sum

ListBox1.Items.Add(z)

a = (-a * (X ^ 2)) / ((2 * n + 1) * (2 * n + 2))

n = n + 1

vivod(Cos(0.6), TextBox3)