Reel Bir Sayının Reel Bir Üstünü Alan Fonksiyon

Bu fonksiyon delphideki pow ya da power fonksiyonu ile alınamayan negatif sayıların reel üstlerini de almak için yazılmıştır. function usal(taban,us:real):real;
var
s:string;
t:real;
Begin
if taban<0 then
if us<>trunc(us) then
Begin
t:=us-trunc(us);
s:=floattostr(t);
s:=midstr(s,length(s),1);
t:=strtoint(s);
if trunc(t) mod 2 <> 0 then Begin
showmessage('Verilen değerler için reel kök yok');
usal:=0;
End
else
usal:=-exp(us*ln(abs(taban)));
End
else
if trunc(us) mod 2=0 then
usal:=exp(us*ln(abs(taban)))
else
usal:=-exp(us*ln(abs(taban)))
else
usal:=exp(us*ln(taban));
End;

// kullanımı sonuc:=usal(taban_sayisi,us_sayisi);