Сумма ряда Опции

[Clane]

Ищется решения для такой задачи : Вычислить сумму ряда: S=X+(x(в пятой степени)/5)+......(x(в степени4n+1)/4n+1)  
0.1<=x<=0.8 n=30! шаг равен h=0.07

[Wert]

Большое спасибо!!!
Но наверное я совсем тупой...
Просто до этого по глупости я не изучал языков программирования.
Я просто ума не приложу как написать в коде эту функцию...
Ведь не напишешь же ее так:
x + (x^3)/3! + ... + (x^(2n+1))/(2n+1)!
И куда этот факториал вставлять?

Может так?

Код

program Wert;

{$APPTYPE CONSOLE}

uses crt;
var
An,S : real;
n    : integer;
function f(k:integer):longint;
begin
 if k = 1 then f := 1 else f := k * f(k-1);
end;

begin
clrscr;
n:=1;
S:=0;
repeat
An:=x + (x*x*x)/3f;
S:=S+An;
n:=n+1;
until An <= 0.001;
writeln('S=',S:7:3);
readkey;
end.

Блин, наверное я совсем тупой, не работает...