• Гідрологія і Гідрометрія
• Господарське право
• Економіка будівництва
• Економіка природокористування
• Економічна теорія
• Земельне право
• Історія України
• Кримінально виконавче право
• Медична радіологія
• Методи аналізу
• Міжнародне приватне право
• Міжнародний маркетинг
• Основи екології
• Предмет Політологія
• Соціальне страхування
• Технічні засоби організації дорожнього руху
• Товарознавство продовольчих товарів

Resh(x,ee)

ln = Log((x + 1) / (x - 1))

TextBox3.Text = CStr(ln)

n = 1

sum = 0

xx = 2 / x

st = "n=|x = |sum =|q = |"

vivodList(st)

st = " "

vivodList(st)

st = "------------------------------------------------"

vivodList(st)

sum = sum + xx

st = "|"+CStr(n)+"|" +CStr(Format(xx,"0000.0000000000"))+"|"+

CStr(Format(sum, "0000.0000000"))+"|"+

CStr(Format(qq(n, x), "0000.000000"))

+ "|" + CStr(Format(((qq(n, x)) * xx), "0000.00000000"))

vivodList(st)

n = n + 1

xx = (qq(n, x)) * xx

Да

xx > ee

Нет

Конец resh()

Button1_Click()

Ee = vvod(TextBox1)

x = vvod(TextBox2)

resh(x, Ee)

Конец Button1_Click()

Проверка в Excel:

Переглядів: 356