Написать программу вычисления суммы n членов ряда согласно условию задачи

[Promi]

Написать программу вычисления суммы n членов ряда согласно условию задачи.

[newerow1989]

function step2(chislo,stepen:real):real;
begin
   Result:=exp(stepen*ln(chislo));
end;

function fact(n:integer):integer;
var i:integer;
begin
   Result:=1;
   For i:=2 to n do
      Result:=Result*i;
end;

function f(x:real;n:integer):real;
var i:integer;
begin
   Result:=1;
   For i:=1 to n-1 do
      Result:=Result+cos(i*pi/4)*step2(x,i)/fact(i);
end;

begin
   Writeln(f(5,5):5:5);
   Readln;
end.

Сойдет?

[Promi]

Как работает программа? Она сразу выводит ответ?

[newerow1989]

Конечно, сразу. Только 2 параметра изменять надо: x и n

[min@y™]

Сойдет?

Ну зачем ты так? формула-то рекуррентная! нафига на каждой итерации вычислять возведение в степень и факториал?

[Аватар]

Ага, тоже заметил, не любят рекуррентность использовать при вычислении сумм рядов, а в большинстве заданий подходит

[min@y™]

Ага, тоже заметил, не любят рекуррентность использовать при вычислении сумм рядов, а в большинстве заданий подходит

у нас была замечательна преподша по вышке Светлана Николавна Орлова, громадное ей спасибище. Это она некоторых из нашей группы укусила, занеся инфекцию оптимизаторства и умение видеть возможность её применения в конкретных случаях.

обожаю язык математики и точные науки.
так гениально и в то же время просто.

[Promi]

Есть еще какие -нибудь другие варианты?

[min@y™]

Есть еще какие -нибудь другие варианты?

Да, есть. Я сына старшего понемногу учу, он щас твою лабу дописывает (под моим чутким руководством). Скоро выложит, жди.

[min@y™]

Вот, сынок изобразил.
Я б по-другому сделал...



Исходник.