Delphi 7(for)

[Надежда_ИСУ]

Здравствуйте!!!
Подскажите пожалуйста,по этому условию надо что-нибудь менять в коде??Дано вещественное число X (|X|<1) и целое число N(>0). Найти значение выражения
x+1*x(3 степень)/(2*3)+1*3*x(5 степень)/(2*4*5)+...+
1*3...(2*N-1)*x(2*n+1 степень))/(2*4...(2*N)*(2*N+1)).
Полученное число является приближенным значению функции arcsin в точке X.

var
  float : single;
begin
  float := ArcSin(0.5);
  float := RadToDeg(float); 
  ShowMessage('ArcSin(0.5) = '+FloatToStr(float)+' градусов');
end;

[Sciv]

по этому условию надо что-нибудь менять в коде??

А где у Вас в коде указанная формула ряда? Или Вы хотите вычислить напрямую арксинус и выдать это за сумму ряда?

Кстати, для подсчета этой самой суммы нужно еще точность вычислений указать.

[BDA]

У Вас в названии темы уже написано слово (for), которого нет в программе.
Вот его-то и нужно использовать.

для подсчета этой самой суммы нужно еще точность вычислений указать.

Не обязательно - тут больше похоже, что ищется N-ая частичная сумма ряда, который в пределе стремится к арксинусу.

[Sciv]

Не обязательно - тут больше похоже, что ищется N-ая частичная сумма ряда, который в пределе стремится к арксинусу.

Точно, это же очевидно! Я сам об этом и не подумал...

[Надежда_ИСУ]

Сообщение от Sciv

Точно, это же очевидно! Я сам об этом и не подумал...

А можно как то в общих чертах код продемонстрировать, не понимаю как это должно выглядеть(((

[Sciv]

sum:=0;
a:=1;
for i:=0 to N-1 do begin
  a:=a*(2*i-1)*Pow(x,2*i+1)/((2*i)*(2*(i+1)));
  sum:=sum+a;
end;

Как то так. Не проверял.
Функции возведения в степень (Pow) в дельфи нет, пишите ее сами.