Developing.ru

Вычислить значение суммы членов бесконечного ряда с заданной точностью Е. На печать вывести значение суммы и число членов ряда, вошедших в сумму. Для проверки полученного результата осуществить вызов функции, разложенной в бесконечный ряд.
Функция sqr(sin(x))
((2*sqr(x))/2! - (2*2*2*sqr(sqr(x))/4! + (2*2*2*2*2*sqr(sqr(sqr(x)))-...
Значение Х : х<1
Точность 10 в минус 4 степени .
Готов отправить на оператор Лайф 5 грн
Ну или просто подкиньте идею , так как я сообразительный
TURBOPASCAL7

будет примерно следующее (при x введенном или данном)
s := sqr(s);
pre := 2;
fact := 2;
i := 1;
t := 0;
val := pre * s / fact;
total := var;
while(val > eps) //esp = 0.0001 - заданная точность
begin
s := sqr(x);
inc(i);
t := i * 2;
fact := fact * (t - 1) * t;
val := pre * s / fact;
total := total + var;
end;

не факто что скомпилится, писал прямо в окне сообщения, но идея должна быть понятно.
суть: каждую часть члена нужно рассматривать как отдельный ряд
2, 2*2*2, 2*2*2*2 ... 2*4*(n-1)
sqr(x), sqr(sqr(x)), sqr(sqr(sqr(x)))
и т.д.

Агаамм. Да, идея ясна. Благодарствую.
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
темку можна удалять