Как правильно записать формулу

@Ковшик · Регистрация: 14.03.2017

Author24 — интернет-сервис помощи студентам

Как в Делфи правильно записать эту формулу?
s:= x- x³/3+...+(-1)ⁿ * x²ⁿ⁺¹/2n+1

@ZfoxAK · 19.06.2017, 08:52

Delphi

var 
s : Extended; 
n, k : Integer; 
begin
 s:=x;
 for n := 1 to k do
  if (n mod 2)>0
   then S:=S - Power(x,(2*n +1))/(2*n+1)
   else S:=S + Power(x,(2*n +1))/(2*n+1);
end;

Примерно так

@Ковшик · 19.06.2017, 13:28 **[ТС]**

Можете объяснить зачем это?

Delphi

 for n := 1 to k do
  if (n mod 2)>0
   then S:=S - Power(x,(2*n +1))/(2*n+1)
   else S:=S + Power(x,(2*n +1))/(2*n+1);

Зачем мы используем mod и что даёт Power? Почему записали отдельно? Хочу просто понять принцип работы, если вам конечно не составит это труда)

@Puporev · 19.06.2017, 13:33

Ковшик, А ты на свою формулу посмотри и чуть подумай.

@Massaraksh7 · 19.06.2017, 14:18

Ну, если человеку очень хочется, то можно и в лоб.

Delphi

var 
s : Extended; 
n, k : Integer; 
begin
s:=x;
for n := 1 to k do 
   begin
   S:=S +Power(-1,n)*Power(x,(2*n +1))/(2*n+1);
   end;
end;

@TFullControl · 19.06.2017, 15:08

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

Ну, если человеку очень хочется, то можно и в лоб.

А смысл? ТС не понял какую таинственную силу придает его формуле функция Power!

@Ковшик 4 / 4 / 0 Регистрация: 14.03.2017 Сообщений: 72
		1
	Как правильно записать формулу 19.06.2017, 08:22. Показов 4298. Ответов 5 Метки нет (Все метки) Как в Делфи правильно записать эту формулу? s:= x- x³/3+...+(-1)ⁿ * x²ⁿ⁺¹/2n+1 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	19.06.2017, 13:33	4
	Ковшик, А ты на свою формулу посмотри и чуть подумай. 0

@TFullControl 500 / 346 / 200 Регистрация: 20.10.2016 Сообщений: 1,101
	19.06.2017, 15:08	6
	Сообщение от Massaraksh7 Ну, если человеку очень хочется, то можно и в лоб. А смысл? ТС не понял какую таинственную силу придает его формуле функция Power! 1

Как правильно записать формулу

Решение