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

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Вычисление значения функции с помощью разложения в ряд (http://www.tehnari.ru/f43/t247210/)

Fruto

23.06.2016 19:00

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

Вложений: 1

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

Vladimir_S

23.06.2016 22:38

Цитата:

Сообщение от Fruto (Сообщение 2392808)

как-то так.

Как-то так:

Код:

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

24.06.2016 00:37

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

Vladimir_S

24.06.2016 09:31

Цитата:

Сообщение от Fruto (Сообщение 2392932)

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

Код:

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

24.06.2016 11:06

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

Часовой пояс GMT +4, время: 07:42.