Вот условие задачи:
Численно убедиться в справедливости равенства, для чего для заданного значения аргумента х вычислить левую его часть и разложение, стоящее в правой части, с заданной погрешностью e. Оценить число итераций, необходимых для достижения заданной точности.
равенство:
sinx=x(1-(x*x/(pi*pi))(1-(x*x/4(pi*pi))...(1-(x*x/((n-1)*(n-1)*pi*pi)))....
Вот так вот....
Моя программа:
Program RGZ3;
Uses crt;
var
x,Eps,a,b,y,P:real;
n:integer;
begin
clrscr;
write('Задайте значение аргумента х=');
readln(x);
write('Введите погрешность е=');
readln(Eps);
P:=x;
y:=sin(x);
n:=2;
repeat
a:=((n-1)*(n-1))*pi*pi;
b:=1-((x*x)/a);
n:=n+(n-1);
P:=p*b;
until ABS(y-p)<=Eps;
if ABS(y-p)<=Eps then write('Равенство справедливо')
else write('Равенство не справедливо');
readln;
end.
Заранее ОГРОМНОЕ СПАСИБО!:=)
Сообщение отредактировано: Lapp -