Возведение в степень в Delphi

[malicious_devil]

procedure TPredely4.SpeedButton1Click(Sender: TObject);
var x,a,b,d,c:integer;
begin
x:=StrToInt(Edit1.Text);
a:=StrToInt(Edit2.Text); //число
b:=StrToInt(Edit3.Text);  //степень
c:=Power(x,b);
//c:=exp(b*log(x));
d:=a*c;
Edit4.Text:=IntToStr(d);

end;

при проверки ругается на power.

[type_Oleg]

А как именно ругается? Или совсем нецензурно.
Может она не на Power ругается, а на то, что ..c:integer;, а Power возвращает совсем не Integer. В любом случае, даже 1^1
Кстати, модуль math подключили ?

[malicious_devil]

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

А как именно ругается? Или совсем нецензурно.
Может она не на Power ругается, а на то, что ..c:integer;, а Power возвращает совсем не Integer. В любом случае, даже 1^1
Кстати, модуль math подключили ?

Сейчас показывает ошибку на d:=a*c;
[Error] Unit4.pas(47): Incompatible types: 'Integer' and 'Extended'
я поняла ошибку, но не соображу что именно надо изменить

[type_Oleg]

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

.. но не соображу что именно надо изменить

var x,a,b:integer;
     d,c:Real ;  // или Double, или Extended

// ...
  Edit4.Text:=FloatToStr(d);

Или второй вариант. Если нужны только целые степени целых чисел, то var оставить так, как у вас было, но изменить одну строку

c:=Round(Power(x,b));

[malicious_devil]

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

var x,a,b:integer;
     d,c:Real ;  // или Double, или Extended

// ...
  Edit4.Text:=FloatToStr(d);

Или второй вариант. Если нужны только целые степени целых чисел, то var оставить так, как у вас было, но изменить одну строку

c:=Round(Power(x,b));

Спасибо! Все получилось!