Вычисление значения функции с помощью разложения в ряд

[Fruto]

Вычисление значения функции с помощью разложения в ряд

:sigh:
в общем, очень срочно нужна помощь с одним заданием!
необходимо разработать программу, которая будет приближенно (с заданной точностью eps 0.0001) вычислять значение функции Y, используя формулу разложения этой функции в бесконечный сходящийся степенной ряд. причем там x принадлежит какому-то интервалу. в итоге также необходимо вывести на монитор табличку значений для x и значений функции.
как-то так.
:blondy::tehnari_ru_281:

 

[Vladimir_S]

как-то так.

Как-то так:

Const
 Eps=0.0001;
VAR
 i,j:Integer;
 S,x,z,A:Real;

Begin
 for j:=0 to 4 do
  begin
   x:=Pi/4*j;
   z:=x*5;
   i:=1;
   A:=z;
   S:=A;
   Repeat
    Inc(i,2);
    A:=-A*z*z/(i*(i-1));
    S:=S+A;
   Until Abs(A)<Eps;
   Writeln('x= ',x:7:5,'   Sum= ',S:12:9,'   Accurate value= ',Sin(z):12:9);
  end;
 Readln
End.

 

[Fruto]

огромное спасибо!)
а как теперь сделать так, чтобы программа сохраняла результаты (табличку) в отдельный файл?
tehno036

 

[Vladimir_S]

огромное спасибо!)
а как теперь сделать так, чтобы программа сохраняла результаты (табличку) в отдельный файл?
tehno036

Проще простого, легче лёгкого и элементарнее элементарного:

Const
 Eps=0.0001;

Var
 i,j:Integer;
 S,x,z,A:Real;
 f:text;

Begin
 Assign(f,'zzzz.txt');
 Rewrite(f);
 for j:=0 to 4 do
  begin
   x:=Pi/4*j;
   z:=x*5;
   i:=1;
   A:=z;
   S:=A;
   Repeat
    Inc(i,2);
    A:=-A*z*z/(i*(i-1));
    S:=S+A;
   Until Abs(A)<Eps;
   Writeln('x= ',x:7:5,'   Sum= ',S:12:9,'   Accurate value= ',Sin(z):12:9);
   Writeln(f,'x= ',x:7:5,'   Sum= ',S:12:9,'   Accurate value= ',Sin(z):12:9);
  end;
 Close(f);
 Readln
End.

 

[Fruto]

Огромное вам спасибо!)) tehnozdram