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

Fruto · 23.06.2016, 19:00

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

Vladimir_S · 23.06.2016, 22:38

Цитата:

Сообщение от Fruto

как-то так.

Как-то так:

Код:

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

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

Vladimir_S · 24.06.2016, 09:31

Цитата:

Сообщение от Fruto

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

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

Код:

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

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

23.06.2016, 19:00	#1 (permalink)
Fruto Новичок Регистрация: 23.06.2016 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Вычисление значения функции с помощью разложения в ряд в общем, очень срочно нужна помощь с одним заданием! необходимо разработать программу, которая будет приближенно (с заданной точностью eps 0.0001) вычислять значение функции Y, используя формулу разложения этой функции в бесконечный сходящийся степенной ряд. причем там x принадлежит какому-то интервалу. в итоге также необходимо вывести на монитор табличку значений для x и значений функции. как-то так. Миниатюры

24.06.2016, 00:37	#3 (permalink)
Fruto Новичок Регистрация: 23.06.2016 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	огромное спасибо!) а как теперь сделать так, чтобы программа сохраняла результаты (табличку) в отдельный файл?

24.06.2016, 11:06	#5 (permalink)
Fruto Новичок Регистрация: 23.06.2016 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Огромное вам спасибо!))

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070