GERÇEK PAYLAŞIMI BİLENLERİN MEKANI
HOŞGELDİNİZ...

GERÇEK PAYLAŞIMI BİLENLERİN MEKANI

,.-~*´¨¯¨`*·~-.¸-(_FRM¥ØK¥ØK_)-,.-~*´¨¯¨`*·~-.¸
 
AnasayfaTakvimSSSAramaÜye ListesiKayıt OlGiriş yap

Paylaş | 
 

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

Aşağa gitmek 
YazarMesaj
KaRaKuLe
Admin
Admin
avatar


MesajKonu: Reel Bir Sayının Reel Bir Üstünü Alan Fonksiyon   Cuma Mart 27, 2009 12:09 am

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)
Sayfa başına dön Aşağa gitmek
 
Reel Bir Sayının Reel Bir Üstünü Alan Fonksiyon
Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» Vadideki Zambak ~ Balzac
» At savur at sevdayı bir yere fırlat Bitti sayıp acıyı kaldır öyle yat......
» Edgar Allen Poe - Hikayeler
» TRaBZoNSPoR MaRŞLaRı

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
GERÇEK PAYLAŞIMI BİLENLERİN MEKANI :: BİLGİSAYAR DÜNYASI :: Yazılım :: DelpHi-
Buraya geçin: