суммы n членов ряда для заданного х

[gylayko]

Написать программу нахождения суммы n членов ряда для заданного х с помощью цикла с параметром
s:=(x^3/3)+((-1)^(n+1)*((x)^(3n))/(2n-1)*(n+2)) при условии n=7, x=0.2

[phomm]

Язык ?
Альтернатива - Ваши наработки или указывайте цену, примерно за 150 сделал бы на дельфи/паскале

[gylayko]

ну вот мои наработки
var x,s,a:real;
n:integer;
begin
s:=1;
x:=0.2;
for n:=1 to 7 do
if n mod 2=0 then
a:=(x*x*x/3)+exp(ln(1)*(n+1))*(exp(ln(x)*3*n) )/(2*n-1)*(n+2) else
a:=(x*x*x/3)+exp(ln(-1)*(n+1))*(exp(ln(x)*3*n))/(2*n-1)*(n+2);
n:=n+1;
s:=s+a;
writeln('summa=',s:0:3);
readln;
end.
но выдает ошибку 207!

[phomm]

Логарифм отрицательного числа нельзя вычислять, в формуле необходимо чередующийся знак, его лучше сделать в виде переменной, которую постоянно умножаете на -1 на каждом шаге цикла.
Цикл у вас странный - мало того, что Вы, по-моему, не сделали бегин-енд (от иф до перед врайт), так ещё и меняете в цикле переменную счетчика, этого делать нельзя (Вы наверное думаете, что её надо менять вручную, но в цикле for не надо, в других надо), думаю , просто надо убрать строчку n := n+1;

Итого 3 исправления - бегин-енд, убрать строчку про Н и заменить чередующийся знак с экспоненты с логарифмом на переменную.
Ошибку 207 не знаю - я не мегомоск, чтобы знать коды ошибок, приведите текст ошибки
Ждем )