Скачать: CL | DM;

Вычисления А в степени Х   Найти похожие ветки 

← →
novex   (2006-12-04 19:45) [0]

Доброго времени суток!
Вопрос не совсем по программированию, но тем не менее нужно вычислисть А в степени Х, кто нить знает как?
Х - любое число больше нуля.

---

← →
Master_ ©   (2006-12-04 20:06) [1]

Попробуйте, просто как пять копеек:

function MyFunct(a,b:integer):real;
var
I:integer;
begin
for i:=1 to b do
       a:=a*a;
result:=a;
end;

---

← →
Master_ ©   (2006-12-04 20:09) [2]

Использовать так:
edit3.text:=floattostr(myFunct(strtoint(edit1.text),strtoint(Edit2.text)));

---

← →
Master_ ©   (2006-12-04 20:14) [3]

Упс ошибочка
function MyFunct(a,b:integer):real;
var
I:integer;
begin
for i:=2 to b do
      a:=a*a;
result:=a;
end;
Это правильней)))

---

← →
Desdechado ©   (2006-12-04 20:27) [4]

Master_ ©   (04.12.06 20:14) [3]
> Упс ошибочка
ага, одна большая
сам попробуй своё a:=a*a; в цикле

---

← →
Master_ ©   (2006-12-04 20:32) [5]

Попробовал - не работает
Вот что получил после доработки
function MyFunct(a,b:integer):integer;
var
I:integer;
x:integer;
begin
x:=a;
I:=1;
while not(i=b) do
       begin
               i:=i+1;
               a:=a*x;
       end;
result:=a;
end;
100% работает.
Вызов :
edit3.text:=inttostr(myFunct(strtoint(form1.edit1.text),strtoint(form1.Edit2.tex t)));

---

← →
Sam Stone ©   (2006-12-04 20:33) [6]

Энергия у русских без вектора... Любят каждый день велосипед изобретать ) В модуле Math должна быть ф-ция Power, или нечто с похожим названием.

---

← →
Юрий Зотов ©   (2006-12-04 21:02) [7]

> Master_ ©   (04.12.06 20:32) [5]

Math.Power
Math.IntPower

Или уж так (при X>0):
Х^Y = Exp(Y*Ln(X))

Но только не надо долгоиграющих самопальных циклов.

---

← →
novex   (2006-12-04 21:40) [8]

Вот, похожи последний ответ мне подойдет, а именно Х^Y = Exp(Y*Ln(X)), потому как в моем случае Х = 1.22, так что варианты с intger не подходят.

---

← →
DiX ©   (2006-12-04 22:13) [9]

Подключаешь модуль Math и используешь функцю power, ниже синтаксис:
function Power(const Base, Exponent: Extended): Extended;

---

← →
sniknik ©   (2006-12-05 00:20) [10]

> Вопрос не совсем по программированию
запускаешь стандартный виндовый калькулятор, переключаеш вид в инженерный, ищешь кнопочку x^y, далее как подскажет "интуитивно понятный интерфейс" виндов...

---

← →
DrPass ©   (2006-12-05 00:36) [11]

> Master_ ©   (04.12.06 20:32) [5]

Ну-ка, возведи мне 7 в степень 4.25 ;-)

---

← →
balepa ©   (2006-12-05 05:13) [12]

novex   (04.12.06 19:45)  

Доброго времени суток!
Вопрос не совсем по программированию, но тем не менее нужно вычислисть А в степени Х, кто нить знает как?
Х - любое число больше нуля.

Надо было всего лишь взять справочник по элементарной математике.

А то так скоро будут вопросы типа "Вопрос не совсем по программированию, но тем не менее нужно сложить 2 + 1 "

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.028 c