Нахождение суммы ряда(цикл с условием) - PascalABC.NET
Формулировка задачи:
Есть пример решения аналогичного задания,но лично мне оно никак не поможет.
Буду очень благодарен
Решение задачи: «Нахождение суммы ряда(цикл с условием)»
textual
Листинг программы
var x,e,t,f1,f2,s:real;
i:integer;
begin
e:=0.0001;//точность
write('x=');
readln(x);
i:=0; //получим исходные значения при i=0
t:=-1//(-1)^(i+1)*x^(2i)
f1:=1;//1/i!
f2:=1;//1/(2i)!
s:=0;//сумма
while abs(t*(f1+f2))>e do//пока модуль очередного члена больше точности
begin
i:=i+1; //следующий
t:=-t*x*x;//(-1)^(i+1)*x^(2i)
f1:=f1/i;//1/i!
f2:=f2/2/i/(2*i-1);//1/(2i)!
s:=s+t*(f1+f2);//сумма
end;
writeln('Сумма=',s:0:4);
write('Функция=',2-exp(-x*x)-cos(x):0:4);
end.