Алгаритм

[Genzal]

Подскажите где я ошибся.

var a,b,h,eps:real; 
x,func,chlen:real; 
k,num:integer; 
begin 
writeln('Данная программа предназначена для вычисления таблицы значений'); 
writeln('функции заданной в виде разложения в ряд.'); 
writeln; 
write('Введите левую границу интервала A='); 
readln(a); 
repeat 
write('Введите правую границу интервала B>',a:0:1,' b='); 
readln(b); 
until b>a; 
repeat 
write('Введите величину шага изменения аргумента (h>0) h='); 
readln(h); 
until h>0; 
repeat 
write('Введите точность вычисления функции E>0 e='); 
readln(eps); 
until eps>0; 
writeln('Вы ввели: '); 
writeln('A=',a:1:5, ' B=',b:1:5,' H=',h:1:5,' E=',eps:1:5); 
writeln; 
writeln(' —-------------------------------------'); 
writeln(' ¦Номер¦ X ¦ f(x) ¦ Номер члена ряда ¦'); 
writeln(' —-------------------------------------'); 
x:=a; 
num:=0; 
repeat 
k:=0; 
func:=0; 
chlen:=sqr(sin(x)); 
inc(num); 
repeat 
inc(k); 
c:=chlen*(sqr(sin(x))*k ) / (k + 1); 
func:=func+chlen; 
until (abs(chlen)<eps); 
writeln(' ¦',num:5,'¦', x:3,' ¦ ',(-0.5)*func :5:2, ' ¦ ' ,k:16,' ¦'); 
x:=x+h 
until not (x<=b); 
end.

[Аватар]

c(k+1)=-x^2/((2k+2)*(2k+3))

Алгаритм

это что?

[Genzal]

Я правильно понял?

chlen:=sqr(sin(x)); 
inc(num); 
repeat 
inc(k); 
chlen:=chlen*(-sqr(sin(x)) ) / ((2 * k + 2) * (2 * k + 3)); 
func:=func+chlen; 
until (abs(chlen)<eps); 
writeln(' ¦',num:5,'¦', x:3,' ¦ ',(-0.5)*func :5:2, ' ¦ ' ,k:16,' ¦'); 
x:=x+h 
until not (x<=b); 
end.

[Аватар]

Обрати внимание: c(k+1) -> c(k)=-x^2/(2k*(2k+1))