|
#1
|
|||
|
|||
function
Код:
function Fxn(X,n:Real):real; //возвращает X^n begin if X=0 then Fxn:=0 else if n=0 then Fxn:=1 else if X<0 then begin Label1.Caption:='При отрицательном Х вычисляется по абсолютному значению!' Fxn:=exp(n*ln(abs(X))) end else Fxn:=exp(n*ln(X)) end; ругается на "unknown identifier" не могу разобраться как написать, помогите пожалуйста... |
#2
|
||||
|
||||
Код:
function Fxn(X, N : Real) : Real; //возвращает X^n begin Result := 0; if X = 0 then Exit else if N = 0 then begin Result := 1; Exit; end else if X < 0 then begin Form1.Label1.Caption := 'При отрицательном Х вычисляется по абсолютному значению!'; Result := Exp(N * Ln(abs(X))); end else Result := Exp(N * Ln(X)); end; Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#3
|
|||
|
|||
отлично, благодарю
|