Нужен совет

[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.

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

[mihali4]

Ну вот, закрыли... Почему ???
Придется прочесть правила раздела !