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

[vpersov]

Что не так в коде, не выполняется ss3:
procedure TForm1.Button1Click(Sender: TObject);
var
C, Kgbl080:real;
r1, i: real;
s1,ss1,ss2,ss3:real;
begin
C := 2;
Kgbl080 := 2;
r1:=48; i:=0;
ss1:=exp(i*ln(C));
ss2:=exp((r1-i)*ln(Kgbl080));
ss3:=exp(i*ln(1-Kgbl080));
s1:=ss1*ss2*ss3;
Label1.Caption := FloatToStr(s1);
end;
end.

Я так понимаю это из-за того что натуральный логарифм от отрицательного числа нет, но тогда как мне возвести отрицательное число в степень?

[_Engine_]

uses Math;

power(); + F1

[xakkkkker]

Подключай модуль Math;
и вот IntPower(X,E) возведение X
в целую степень E: X в степени Е

[vpersov]

Спасибо. Вроде работает)

[unbanned]

можно сделать и с твоим кодом, только поставить условие:

if c<0 then ss1:=-exp(i*ln(abs(C)))
else ss1:=exp(i*ln(C));

ну и т.д. для остальных чисел)) хотя конечно проще через стандартные функции