Как реализовать возведение x в степень 2n-1 без..

Question

Собственно вопрос: как реализовать возведение x в степень 2n-1 без. . без exp(ln(x)*(2n-1)) и без power (x,2n-1)?P.S: delphi.P.S.S: n изначально з 
P.S: delphi. 
P.S.S: n изначально задаётся как n:=0; 
а потом уже в цикле inc(n); 
 
ЗАРАНЕЕ СПАСИБО!

часть "кода": 
while (abs(f)>(0.5*1e-4)) do 
 begin 
 S:=S+f; 
 znak:=-znak; 
 Inc(n); 
 f:=(znak*(power(x,(2*n)-1))/((2*n)-1)); 
 end; 
 
Мне нужно заменить power(x,(2*n)-1) через цикл.

Даткайым Сыдыкова · Accepted Answer

ты считываешь n? а чем пишешь?

Аяна Суберекова · Answer

Как? Целая степень числа x - это x*x*x....*x (n раз, или 2n-1 раз, какая разница) . 
Следовательно, всего лишь одним циклом 
 double power=1.0; 
 for (i =0;i < 2*n-1; i ++) power *= x;