Дана сумма ряда. Ряд Маклорена в Паскале

[vitjok]

Дана сумма ряда. Ряд Маклорена в Паскале

Помогите пожалусйта вообще не понимаю как тут посчитать, через n-й член:

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

 

[Vladimir_S]

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

И я не могу. И я не понимаю, как он образовался. Да, плохи Ваши дела - боюсь, смысл этого ряда навсегда останется тайной того идиота, который его изобрёл. Или его секретарши, которая это дело набивала. Сочувствую...

 

[vitjok]

эт он сам придумал))такие уж у нас программеры а армии)) он протсто старый уже))
а если вместо 7! поставить 5!)то в знаменателе получится формула(n+1)!+(n+2)! ??)
извиняюсь но в 3-ем члене, 4!+7!)) если это чем то поможе

 

[Vladimir_S]

Единственное, что могу посоветовать - это считать, что там действительно каждый i-тый член суммы есть i/((i+1)!+(i+2)!), и воспользоваться программой отсюда, адаптировав к нужной формуле. Успехов!

 

[vitjok]

у меня к вам большой вопрос как записать факториал в паскале???)):tehnari_ru_325:

 

[Vladimir_S]

у меня к вам большой вопрос как записать факториал в паскале???)):tehnari_ru_325:

По разному можно. Например, задав функцию:

Function Nfact(n:Word):Extended;
VAR
  i:Word;
  fact:Extended;
Begin
  If n=0 then fact:=1 else
    begin
      fact:=1;
      for i:=1 to n do
        fact:=fact*i;
    end;
  Nfact:=fact;
End;

А вообще можно вполне обойтись и без факториала, задавая члены ряда рекуррентно. Это если сообразить, что

(i+1)! + (i+2)! = (i+1)!*(i+3)

Таким образом, для получения i-го члена ряда из (i-1)-го нужно этот (i-1)-й поделить на (i+1), поделить на (i-1), умножить на i, умножить на (i+2) и поделить на (i+3).

 

[vitjok]

что то я не доконца все понимаю( вот лучше бы с фукцией разобраться)для моей формулы i/((I+1)!+(I+2)!) tehno015

 

[Vladimir_S]

что то я не доконца все понимаю( вот лучше бы с фукцией разобраться)для моей формулы i/((I+1)!+(I+2)!) tehno015

Конечно. Так а я про что?
Ладно, вот Вам два варианта решения - с явным заданием факториала и без такового. Запустите обе программы и убедитесь, что они выдают ровно одно и то же.

С факториалом:

Var
 i,n:Byte;
 S:real;

Function Nfact(n:Word):Extended;
VAR
  i:Word;
  fact:Extended;
Begin
  If n=0 then fact:=1 else
    begin
      fact:=1;
      for i:=1 to n do
        fact:=fact*i;
    end;
  Nfact:=fact;
End;

Begin
 Write('n= ');
 Readln(n);
 S:=0;
 For i:=1 to n do
  S:=S+i/(Nfact(i+1)+Nfact(i+2));
 Writeln('S= ',S:0:8);
 Readln
End.

Без факториала (в явном виде):

Var
 i,n:Byte;
 a,S:real;

Begin
 Write('n= ');
 Readln(n);
 a:=1/8;
 S:=a;
 For i:=2 to n do
  begin
   a:=a/(i-1)*i/(i+1)*(i+2)/(i+3);
   S:=S+a;
  end;
 Writeln('S= ',S:0:8);
 Readln
End.

Попробуйте разобраться.

 

[vitjok]

спасибо разобрался)) нам седня через функции подробно описали)) и он в сумме ошибку исправил)) 2-й член ее правильный был))
как бы было хорошо если бы вы у нас вели информатику))