Табулирование суммы функционального ряда

[fr0z3n]

помогите записать формулу на языке паскаль(лазарус)

формула в виде картинки(

[Kostia]

Примерно так:

ar
  e,fx,f,x: real;
  n: integer;
begin
	write('Введите точность вычислений '); readln(e);
	write('введите x '); readln(x);
	writeln('f         fx');
	n:=1; fx:=sqr(2*x)/2; f:=-fx;
	while(abs(fx)>e) do
	begin
		inc(n);
		fx:=fx*sqr(2*x)/((n*2)*(n*2-1));
		if((n and 1) = 1) then f:=f-fx
		else				   f:=f+fx;
		writeln(f:5:4,'  ',fx:5:4);
	end;
end.

[Stilet]

fr0z3n

Внизу страницы есть ссылки на похожие темы, прогуляйся по ним, может там примеры подобные есть.

[fr0z3n]

спасибо большое