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

[Clane]

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

[Amro]

однако я не уверен в правильности этого кода...

Код увроде правильный!!!

но вот все остальное...

Что остальное??
Вот когда-то делал прогу

Код

uses crt;
var
An,S : real;
n    : integer;
begin
clrscr;
n:=1;
S:=0;
repeat
An:=exp(n*ln(1/2))+exp(n*ln(1/3));
S:=S+An;
n:=n+1;
until An <= 0.001;
writeln('S=',S:7:3);
readkey;
end.

Вместо An делай своё выражение, плюс надо факториал найти, это не сложно ...... вот рекурсивная ф-ция

Код

function f(k:integer):longint;
begin
  if k = 1 then f := 1 else f := k * f(k-1);
end;

Остаётся собрать всё вместе!!!! Думаю догадаешься!!!
Просто Oleg_Z нас учит не писать программу полностью а подсказывать, направлять в нужное русло!!!! Ибо писать полность это зло, если прога лёгкая!!!
Wert Так шо думай!!!