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

[Clane]

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

[Wert]

У меня есть похожее приложение но для другого варианта, но в делфи, как собственно почти во всех других языках программирования я смыслю мало, поэтому даже переделать под свой вариант не могу
Далее привожу текст того приложения (задание того варианта мне не известно...), приложение консольное:

Код

program Wert;

{$APPTYPE CONSOLE}

uses
 SysUtils;

var t,x,s:real;
i,j:integer;
const a=0.1; b=0.6; e=0.00001;
begin
writeln('vvedite x ot ',a:1:1,' do ',b:1:1);
readln(x);
i:=0;
s:=1;
t:=1;
repeat
i:=i+1;
j:=i*i+1;
t:=t*(x/2)/i;
s:=s+t*j;
until t<e;
writeln('summa ryada =',s);
writeln('posledny chlen ryada =',t);
writeln('kolichestvo povtorov =',i);
readln;
end.

Понятно, что нужно поставить вместо е, а и b , но вот все остальное...

Код заключаем в теги!

Сообщение отредактировано: APAL - 25.10.2004 9:46