интересная задачка... Как я помню, "с заданной точностью",это когда новое значение становиться меньше "Е", т.е. f(x)<E .
X и Е мы ввели ранее...
тогда:
Code
i:=1;
k:=1;
s:=(x^1)*(1/(1*!)-1/((2*1)!))//кривовато-то правда, но если не к спеху,то отлажу, а так мы вели в сумматор первое значение.
while(t:=(x^i)*(1/(i*!)-1/((2*i)!))>=E)// такая запись должна сработать
k:=-k;
s:=s+k*t ;//"к" у нас меняет только знак, а получается, что но чётных мы вычетает, а по нечётным- складываем
//Не помню,в while есть ли автосчётчик.. если нет,то
i:=i+1;
end;
// и теперь проверка
writeln('наш результат=',s);
w:=cos(x^0,5)-e^(-x);
writeln('оценка правильности=',w);
Думаю должно сработать!)
Удачи, если что, пиши!
