0 / 0 / 0
Регистрация: 01.03.2013
Сообщений: 20
1

Вычисления ряда Тейлора

08.03.2013, 20:59. Показов 750. Ответов 4
Метки нет (Все метки)

По заданию необходимо вычислить сумму ряда F(x)= сумма от 0 до N следующего выражения (2/sqrt(pi))*((-1)Stepenj(n))*(2)(Stepenj(2*n+1)) / fact(n)*(2*n+1). За Х принять число 2.
Мой код имеет вид. Просьба подкорректировать или подсказать что у меня работает не так как нужно.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Program Tailor;
uses crt;
var
Sum,i,f1:real;
f,f2,f3,x,n:integer;
                  function fact(n:integer):longint;
                  var
                  i:longint;
                  f:longint;
                  begin
                  clrscr;
                  f:=1;
                  for i:=2 to n do
                  f:=f*i;
                  fact:=f;
                  end;
                        function Stepenj (val:integer,inp:integer):integer;
                        var i, tmp, Result:integer;
                        begin
                        clrscr;
                        tmp:=val;
                        Result:=1;
                        for i:=1 to inp do
                        Result:=Result*tmp;
                        Writeln(Result);
                        end;
begin
clrscr;
f1:=2/sqrt(pi);
f2:=fact(n)*(2*n+1);
f3:=((-1)Stepenj(n))*(2)(Stepenj(2*n+1));
for n:=0 to n do
begin
f3:=fact(n);
f2:=Stepenj(n);
Sum:=(f1*f3)/f2;
Writeln('f1 =',f1);
Writeln('f2 =',f2);
Writeln('f3 =',f3);
end;
writeln('sum= ',sum);
readln;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.03.2013, 20:59
Ответы с готовыми решениями:

Вычисления суммы элементов ряда Тейлора
вычисления суммы элементов ряда Тейлора.Результаты вычисления суммы элементов ряда Тейлора в...

Вычисления суммы элементов ряда Тейлора
вычисления суммы элементов ряда Тейлора.Результаты вычисления суммы элементов ряда Тейлора в...

По заданной формуле члена ряда составить программу вычисления всех членов ряда
*_* оу спасибо !!!! По заданной формуле члена ряда составить программу вычисления всех членов...

Вычисления суммы ряда с точностью до члена ряда, не превышающего по абсолютной величине 0,001
Помогите пожалуйста с решением задачи, заранее спасибо!!! Составьте программу (на...

4
Почетный модератор
64253 / 47553 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
09.03.2013, 12:41 2
Цитата Сообщение от Usrname Посмотреть сообщение
Просьба подкорректировать или подсказать
Еще бы формулу увидеть в оригинальном виде, без Ваших дополнений, похоже программа вообще написана не верно.
1
0 / 0 / 0
Регистрация: 01.03.2013
Сообщений: 20
09.03.2013, 14:02  [ТС] 3
Вычисления ряда Тейлора
Формула.
0
Почетный модератор
64253 / 47553 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
09.03.2013, 14:23 4
Непонятно что это er перед F(x)

Добавлено через 8 минут
Если считать до заданного N, как у Вас, то так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var n,i:integer;
    x,t,s:real;
begin
clrscr;
write('x=');
readln(x);
write('n=');
readln(n);
t:=x;
s:=t;
for i:=1 to n do
 begin
  t:=-t*x*x/i;
  s:=s+t/(2*i+1);
 end;
s:=2*s/sqrt(pi);
write('S=',s:0:4);
readln
end.
Но мне кажется что считать нужно до заданной точности, поскольку написано что n от 0 до бесконечности

Добавлено через 3 минуты
Это нужно исправить
Pascal
1
s:=s+t/(2*i+1);
Добавлено через 2 минуты
До точности будет так.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
uses crt;
var n:integer;
    x,e,t,s:real;
begin
clrscr;
write('x=');
readln(x);
repeat
write('e>0 e=');
readln(e);
until e>0;
if e>=abs(x) then s:=x
else
 begin
  n:=0;
  t:=x;
  s:=t;
  while abs(t)/(2*n+1)>e do
   begin
    n:=n+1;
    t:=-t*x*x/n;
    s:=s+t/(2*n+1);
   end;
 end;
s:=2*s/sqrt(pi);
write('S=',s:0:4);
readln
end.
Добавлено через 3 минуты
Что-то в торопях ошибок наделал, все что увидел, поправил, смотри еще раз оба кода.
1
0 / 0 / 0
Регистрация: 01.03.2013
Сообщений: 20
09.03.2013, 19:09  [ТС] 5
Насчет er сам не уверен, что это. Скорее всего на суть оно не влияет. За код большое спасибо! Точность я вычислял отдельно для типов. Там что то около 31 предел n!.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.03.2013, 19:09
Помогаю со студенческими работами здесь

По заданной формуле члена ряда с номером k составить программу вычисления всех членов ряда, не меньших задан
(5k/(k2+81) Добавлено через 1 час 0 минут По заданной формуле члена ряда с номером k составить...

Составить алгоритм и программу вычисления суммы ряда.Справа от знака равенства дано для контроля математическое значения ряда
Прошу помогите решить Составить алгоритм и программу вычисления суммы ряда.Справа от знака...

Вычислить сумму ряда Тейлора для ch(x)
Программирование итерационных процессов . Создать блок-схему и программу на языке Pascal Помогите!

Протабулировать функцию, заданную с помощью ряда Тейлора
Добрый день. помогите с программой. Очень прошу. Заранее спасибо Вычислить и вывести на экран в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru