Задачи на Pascal/Object Pascal/Free Pascal (Delphi/Lazarus) - [7932] :: Прикладное программирование

Помогите пожалуйста в решении следующей задачи:
Задача:
Дано вещественное число X (|X|<1) и целое число N (>0). Найти значение выражения $X-X^{3}/3+x^{5}/5-..+(-1)^{N}*X^{2*N+1}/(2*N+1)$
Полученное число является приближенным значением функции arctg в точке X.

Код:

function kvad(b:real;a:integer):real;
var i:integer;
begin
for i:=0 to a-1 do
b:=b*b;
kvad:=b;
end;
procedure TForm1.Button1Click(Sender: TObject);
var a,b,i,j,n :integer;
x:real;
begin

x:= StrToFloat(Edit1.Text);
n:= StrToInt(Edit2.Text);
for i:=1 to n do
x:=((-kvad(x,i)*kvad(x,(2*i+1)))/(2*i+1));
Label1.Caption:=FloatToStr(x);
end;

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению