Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 15.10.2015 22:45
- Информатика
- remove_red_eye 8676
- thumb_up 34
Ответы и объяснения 1
Sub First()
s = 0
z = 1
x = Val(InputBox("Введите х не больше 2"))
e = Val(InputBox("Введите точность Е"))
n = 1
pow = x
Do
m1 = pow
z = -z
pow = pow * (x / 2)
s = s + pow * z
n = n + 1
Loop While Abs(pow - m1) > e
Cells(2, 2) = s
Cells(3, 2) = n
End Sub
Sub s22()
s = 0
z = 1
x = Val(InputBox("Введите х"))
powx = 1
For i = 1 To 25
powx = powx * x
s = s + z * powx / (i * (i + 1))
z = -z
Next i
Cells(6, 2) = s
End Sub
- 16.10.2015 13:43
- thumb_up 46
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.