Ceil Fonksiyonu (Aritmetik Usuller) - Yukarı yuvarlama
Ondalık bir sayıyı yukarıya doğru yuvarlamak için kullanılır.Sonuç tam sayı
olarak döner.
Örnek:
Uses Math;
procedure TForm1.Button1Click(Sender: TObject);
var
r1, r2, r3: integer;
begin
r1 := Ceil(-12.87);
r2 := Ceil(0.42);
r3 := Ceil(12.87);
MessageDlg('Sayı < 0 ''ın yuvarlanması ( -12.87 ) : ' + inttostr(r1) + #13 +
' 0 > Sayı < 1 ''in yuvarlanması (0.42) : ' + inttostr(r2) + #13 +
' Sayı > 1 ''in yuvarlanması (12.87) : ' + inttostr(r3),
mtInformation, [mbOk], 0);
end;
Sonuç : Sayı < 0 ''ın yuvarlanması ( -12.87 ) : -12
0 > Sayı < 1 ''in yuvarlanması (0.42) : 1
Sayı > 1 ''in yuvarlanması (12.87) : 13
Delphi - .....................................
Ceil Fonksiyonu (Aritmetik Usuller) - Yukarı yuvarlama
Ondalık bir sayıyı yukarıya doğru yuvarlamak için kullanılır.Sonuç tam sayı
olarak döner.
Örnek:
Uses Math;
procedure TForm1.Button1Click(Sender: TObject);
var
r1, r2, r3: integer;
begin
r1 := Ceil(-12.87);
r2 := Ceil(0.42);
r3 := Ceil(12.87);
MessageDlg('Sayı < 0 ''ın yuvarlanması ( -12.87 ) : ' + inttostr(r1) + #13 +
' 0 > Sayı < 1 ''in yuvarlanması (0.42) : ' + inttostr(r2) + #13 +
' Sayı > 1 ''in yuvarlanması (12.87) : ' + inttostr(r3),
mtInformation, [mbOk], 0);
end;
Sonuç : Sayı < 0 ''ın yuvarlanması ( -12.87 ) : -12
0 > Sayı < 1 ''in yuvarlanması (0.42) : 1
Sayı > 1 ''in yuvarlanması (12.87) : 13
Delphi - .....................................
DivMod Prosedürü (Aritmetik Usuller) - Bölme İşlemi***
Standart BÖLME işlemi yapar.Kesin sonuç yerine Bölüm ve Kalanı Dönderir.
Kullanımı:
DivMod(Dividend: Integer; Divisor: Word; var Result, Remainder: Word);
DivMod(Bölünen: Integer; Bölen: Word; var Bölüm, Kalan: Word);
Örnek : 43 ün 12 ye bölümüden bölüm ve kalan nedir?
Divmod(Bölünen , Bölen, Bölüm,Kalan)
Uses math;
procedure TForm1.Button1Click(Sender: TObject);
var
Bolunen: integer;
Bolen, Bolum, Kalan: word;
begin
Bolunen := 43;
Bolen := 12;
divmod(Bolunen, Bolen, Bolum, Kalan);
showmessage('Bölunen :' + inttostr(Bolunen) + #13 +
'Bölen : ' + inttostr(Bolen) + #13 + 'Bölüm : ' + inttostr(Bolum) + #13 +
'Kalan : ' + inttostr(Kalan));
end;
Sonuç : Bölüm=3 , Kalan= 7 [(12*3)+7]=43
Delphi - .....................................
DivMod Prosedürü (Aritmetik Usuller) - Bölme İşlemi***
Standart BÖLME işlemi yapar.Kesin sonuç yerine Bölüm ve Kalanı Dönderir.
Kullanımı:
DivMod(Dividend: Integer; Divisor: Word; var Result, Remainder: Word);
DivMod(Bölünen: Integer; Bölen: Word; var Bölüm, Kalan: Word);
Örnek : 43 ün 12 ye bölümüden bölüm ve kalan nedir?
Divmod(Bölünen , Bölen, Bölüm,Kalan)
Uses math;
procedure TForm1.Button1Click(Sender: TObject);
var
Bolunen: integer;
Bolen, Bolum, Kalan: word;
begin
Bolunen := 43;
Bolen := 12;
divmod(Bolunen, Bolen, Bolum, Kalan);
showmessage('Bölunen :' + inttostr(Bolunen) + #13 +
'Bölen : ' + inttostr(Bolen) + #13 + 'Bölüm : ' + inttostr(Bolum) + #13 +
'Kalan : ' + inttostr(Kalan));
end;
Sonuç : Bölüm=3 , Kalan= 7 [(12*3)+7]=43
Delphi - .....................................
Exp Fonksiyonu (Aritmetik Usuller) - e Sayısının Üstünün alınması
Logaritmadaki e sayısının üstünün sonucunu döndürür.
Kullanımı : Exp (X: Real): Real;
: Exp (X:Onadlık Sayı):Sonuç Ondalık Sayı;
Örnek :
Uses Math;
Exp(1.0) , Sonuç : (e^1 e Sayısı)
Exp(2.0) , Sonuç : (e^2 e sayısının karesi)
Exp(3.0) , Sonuç : (e^3 e sayısının üçüncü kuvveti)
......
......
Exp(n.n) , Sonuç : (e^n.n e sayısının n.n'inci kuvveti )
Delphi - .....................................
Exp Fonksiyonu (Aritmetik Usuller) - e Sayısının Üstünün alınması
Logaritmadaki e sayısının üstünün sonucunu döndürür.
Kullanımı : Exp (X: Real): Real;
: Exp (X:Onadlık Sayı):Sonuç Ondalık Sayı;
Örnek :
Uses Math;
Exp(1.0) , Sonuç : (e^1 e Sayısı)
Exp(2.0) , Sonuç : (e^2 e sayısının karesi)
Exp(3.0) , Sonuç : (e^3 e sayısının üçüncü kuvveti)
......
......
Exp(n.n) , Sonuç : (e^n.n e sayısının n.n'inci kuvveti )
Delphi - .....................................
Floor Fonksiyonu (Aritmetik Usuller) - Aşağı yuvarlama
Ondalık bir sayıyı aşağı doğru yuvarlamak için kullanılır.Sonuç tam sayı
olarak döner.
Örnek:
Uses Math;
procedure TForm1.Button1Click(Sender: TObject);
var
r1, r2, r3: integer;
begin
r1 := Floor(-12.87);
r2 := Floor(0.42);
r3 := Floor(12.87);
MessageDlg('Sayı < 0 ''ın yuvarlanması ( -12.87 ) : ' + inttostr(r1) + #13 +
' 0 > Sayı < 1 ''in yuvarlanması (0.42) : ' + inttostr(r2) + #13 +
' Sayı > 1 ''in yuvarlanması (12.87) : ' + inttostr(r3),
mtInformation, [mbOk], 0);
end;
Sonuç : Sayı < 0 ''ın yuvarlanması ( -12.87 ) : -13
0 > Sayı < 1 ''in yuvarlanması (0.42) : 0
Sayı > 1 ''in yuvarlanması (12.87) : 12
Delphi - .....................................
Floor Fonksiyonu (Aritmetik Usuller) - Aşağı yuvarlama
Ondalık bir sayıyı aşağı doğru yuvarlamak için kullanılır.Sonuç tam sayı
olarak döner.
Örnek:
Uses Math;
procedure TForm1.Button1Click(Sender: TObject);
var
r1, r2, r3: integer;
begin
r1 := Floor(-12.87);
r2 := Floor(0.42);
r3 := Floor(12.87);
MessageDlg('Sayı < 0 ''ın yuvarlanması ( -12.87 ) : ' + inttostr(r1) + #13 +
' 0 > Sayı < 1 ''in yuvarlanması (0.42) : ' + inttostr(r2) + #13 +
' Sayı > 1 ''in yuvarlanması (12.87) : ' + inttostr(r3),
mtInformation, [mbOk], 0);
end;
Sonuç : Sayı < 0 ''ın yuvarlanması ( -12.87 ) : -13
0 > Sayı < 1 ''in yuvarlanması (0.42) : 0
Sayı > 1 ''in yuvarlanması (12.87) : 12
Delphi - .....................................
Frac Fonksiyonu (Aritmetik Usuller) - Ondalık sayının ondalık kısmını alma
Ondalık bir sayının ondalık kısmını almak için kullanılır.
Kullanımı : Frac(X: Extended): Extended;
Frac(X:Ondalık Sayı):Ondalık Sayı;
Örnek :
Uses System;
procedure TForm1.Button1Click(Sender: TObject);
var
r1, r2, r3: Real;
begin
r1 := Frac(-12.87113);
r2 := Frac(0.43333);
r3 := Frac(12.87311);
MessageDlg('Sayı < 0 ( -12.87113 ) : ' + FloattoStr(r1) + #13 +
' 0 > Sayı < 1 (0.43333) : ' + FloattoStr(r2) + #13 +
' Sayı > 1 (12.87311) : ' + FloattoStr(r3),
mtInformation, [mbOk], 0);
end;
Sonuç : Sayı < 0 ( -12.87113 ) : -0,87113
0 > Sayı < 1 (0.433332) : 0,43333
Sayı > 1 (12.8731131) : 0,87311
Delphi - .....................................
Frac Fonksiyonu (Aritmetik Usuller) - Ondalık sayının ondalık kısmını alma
Ondalık bir sayının ondalık kısmını almak için kullanılır.
Kullanımı : Frac(X: Extended): Extended;
Frac(X:Ondalık Sayı):Ondalık Sayı;
Örnek :
Uses System;
procedure TForm1.Button1Click(Sender: TObject);
var
r1, r2, r3: Real;
begin
r1 := Frac(-12.87113);
r2 := Frac(0.43333);
r3 := Frac(12.87311);
MessageDlg('Sayı < 0 ( -12.87113 ) : ' + FloattoStr(r1) + #13 +
' 0 > Sayı < 1 (0.43333) : ' + FloattoStr(r2) + #13 +
' Sayı > 1 (12.87311) : ' + FloattoStr(r3),
mtInformation, [mbOk], 0);
end;
Sonuç : Sayı < 0 ( -12.87113 ) : -0,87113
0 > Sayı < 1 (0.433332) : 0,43333
Sayı > 1 (12.8731131) : 0,87311
Delphi - .....................................
Int Fonksiyonu (Aritmetik Usuller) - Ondalık Sayının Tam Kısmını Alma
Ondalık bir sayının tam kısmını almak için kullanılır.
Kullanımı : Int(X: Extended): Extended;
Int(X:Ondalık Sayı):Ondalık Sayı;
Örnek :
uses System;
procedure TForm1.Button1Click(Sender: TObject);
var
r1, r2, r3: Real;
begin
r1 := Int(-12.87113);
r2 := Int(0.43333);
r3 := Int(12.87311);
MessageDlg('Sayı < 0 ( -12.87113 ) : ' + FloattoStr(r1) + #13 +
' 0 > Sayı < 1 (0.43333) : ' + FloattoStr(r2) + #13 +
' Sayı > 1 (12.87311) : ' + FloattoStr(r3),
mtInformation, [mbOk], 0);
end;
Sonuç : Sayı < 0 ( -12.87113 ) : -12
0 > Sayı < 1 (0.433332) : 0
Sayı > 1 (12.8731131) : 12
Delphi - .....................................
Int Fonksiyonu (Aritmetik Usuller) - Ondalık Sayının Tam Kısmını Alma
Ondalık bir sayının tam kısmını almak için kullanılır.
Kullanımı : Int(X: Extended): Extended;
Int(X:Ondalık Sayı):Ondalık Sayı;
Örnek :
uses System;
procedure TForm1.Button1Click(Sender: TObject);
var
r1, r2, r3: Real;
begin
r1 := Int(-12.87113);
r2 := Int(0.43333);
r3 := Int(12.87311);
MessageDlg('Sayı < 0 ( -12.87113 ) : ' + FloattoStr(r1) + #13 +
' 0 > Sayı < 1 (0.43333) : ' + FloattoStr(r2) + #13 +
' Sayı > 1 (12.87311) : ' + FloattoStr(r3),
mtInformation, [mbOk], 0);
end;
Sonuç : Sayı < 0 ( -12.87113 ) : -12
0 > Sayı < 1 (0.433332) : 0
Sayı > 1 (12.8731131) : 12
Delphi - .....................................
IntPower Fonksiyonu (Aritmetik Usuller) - Sayının n ci kuvvetini alma
Ondalık veya tam bir sayının n. ci kuvvetini almak için kullanılır.
Kullanımı : IntPower(const Base: Extended; const Exponent: Integer): Extended
IntPower(const Sayı: Extended; const Kuvveti: Integer): Extended
Örnek :
Uses math;
procedure TForm1.Button1Click(Sender: TObject);
var
r1: Real;
begin
r1 := Intpower(12, 3);
MessageDlg('Sayı (12 * 12 * 12 ) : ' + FloattoStr(r1), mtInformation, [mbOk], 0);
end;
Sonuç : Sayı (12 * 12 * 12 ) : 1728
Delphi - .....................................
IntPower Fonksiyonu (Aritmetik Usuller) - Sayının n ci kuvvetini alma
Ondalık veya tam bir sayının n. ci kuvvetini almak için kullanılır.
Kullanımı : IntPower(const Base: Extended; const Exponent: Integer): Extended
IntPower(const Sayı: Extended; const Kuvveti: Integer): Extended
Örnek :
Uses math;
procedure TForm1.Button1Click(Sender: TObject);
var
r1: Real;
begin
r1 := Intpower(12, 3);
MessageDlg('Sayı (12 * 12 * 12 ) : ' + FloattoStr(r1), mtInformation, [mbOk], 0);
end;
Sonuç : Sayı (12 * 12 * 12 ) : 1728
Delphi - .....................................
IsInfinite Fonksiyonu (Aritmetik Usuller) - Değer matematiksel olarak sonsuzmu***
Sayısal ifadenin (+ veya - ) sonsuz olup olmadığını tespit etmek için kullanılır.
(0/0) sayı olarak kabul edilmediğinden dolayı bu durumu kontrol etmek için
IsNan komutunu kullanmak gerekir. Nan (not a number)
Kullanımı: IsInfinite(const AValue: Double): Boolean;
Örnek:
Uses Math;
procedure TForm1.Button1Click(Sender: TObject);
begin
if IsInfinite(-11 / 0) = true then
begin
MessageDlg('İfade sonsuz ', mtInformation, [mbOk], 0);
end;
end;
Sonuç: İfade Sonsuz (True)
Delphi - .....................................
IsInfinite Fonksiyonu (Aritmetik Usuller) - Değer matematiksel olarak sonsuzmu***
Sayısal ifadenin (+ veya - ) sonsuz olup olmadığını tespit etmek için kullanılır.
(0/0) sayı olarak kabul edilmediğinden dolayı bu durumu kontrol etmek için
IsNan komutunu kullanmak gerekir. Nan (not a number)
Kullanımı: IsInfinite(const AValue: Double): Boolean;
Örnek:
Uses Math;
procedure TForm1.Button1Click(Sender: TObject);
begin
if IsInfinite(-11 / 0) = true then
begin
MessageDlg('İfade sonsuz ', mtInformation, [mbOk], 0);
end;
end;
Sonuç: İfade Sonsuz (True)
Delphi - .....................................
IsNan Fonksiyonu (Aritmetik Usuller) - Değer bir sayımı***
İfadenin Sayısal bir değer olup olmadığını belirtmek için kullanılır.
+ veya - Sonsuz ifadeleride bir sayı olduğundan dolayı IsNan fonksiyonu
(1/0)'ı sayı olarak kabul eder. Herhangi bir sayısal sonucun veya değerin
+ veya - sonsuz olduğunu tespit etmek için IsInfinite fonkisiyonun kullanmak
gerekir. Nan (not a number)
Kullanımı: IsNan(const AValue: Single): Boolean;
IsNan(const AValue: Double): Boolean;
IsNan(const AValue: Extended): Boolean;
Örnek :
Uses math;
procedure TForm1.Button1Click(Sender: TObject);
begin
if IsNan(0.0 / 0.0) = True then
begin
MessageDlg('İfade Sayısal Değil ', mtInformation, [mbOk], 0);
end;
if IsNan(5.3 / 0.3) = False then
begin
MessageDlg('İfade Sayısal ', mtInformation, [mbOk], 0);
end;
end;
Delphi - .....................................
IsNan Fonksiyonu (Aritmetik Usuller) - Değer bir sayımı***
İfadenin Sayısal bir değer olup olmadığını belirtmek için kullanılır.
+ veya - Sonsuz ifadeleride bir sayı olduğundan dolayı IsNan fonksiyonu
(1/0)'ı sayı olarak kabul eder. Herhangi bir sayısal sonucun veya değerin
+ veya - sonsuz olduğunu tespit etmek için IsInfinite fonkisiyonun kullanmak
gerekir. Nan (not a number)
Kullanımı: IsNan(const AValue: Single): Boolean;
IsNan(const AValue: Double): Boolean;
IsNan(const AValue: Extended): Boolean;
Örnek :
Uses math;
procedure TForm1.Button1Click(Sender: TObject);
begin
if IsNan(0.0 / 0.0) = True then
begin
MessageDlg('İfade Sayısal Değil ', mtInformation, [mbOk], 0);
end;
if IsNan(5.3 / 0.3) = False then
begin
MessageDlg('İfade Sayısal ', mtInformation, [mbOk], 0);
end;
end;
Delphi - .....................................
IsZero Fonksiyonu (Aritmetik Usuller) - Sonuç veya değer sıfırmı***
Sayısal sonucun veya değerin sıfır olup olmadığını tespit etmek için kullanılır.
Örnek:
Uses Math;
procedure TForm1.Button1Click(Sender: TObject);
begin
if IsZero(20.0 - 20.0) = True then
begin
MessageDlg('Sonuç Sıfır ', mtInformation, [mbOk], 0);
end;
end;
Sonuç: Sonuç Sıfır (True)
Delphi - .....................................
IsZero Fonksiyonu (Aritmetik Usuller) - Sonuç veya değer sıfırmı***
Sayısal sonucun veya değerin sıfır olup olmadığını tespit etmek için kullanılır.
Örnek:
Uses Math;
procedure TForm1.Button1Click(Sender: TObject);
begin
if IsZero(20.0 - 20.0) = True then
begin
MessageDlg('Sonuç Sıfır ', mtInformation, [mbOk], 0);
end;
end;
Sonuç: Sonuç Sıfır (True)
Delphi - .....................................
LdExp Fonksiyonu (Aritmetik Usuller) - 2 nin üstünü alıp, katsayı ile çarpma
2 sayısının üstünü alıp belirtilen katsayı ile çarpım yapmak için kullanılır.
Kullanımı: Ldexp(const Katsayı: Extended; const Üstü: Integer);
Örnek :
Uses Math;
var
r2: Integer;
r1,r3: Real;
begin
r1:=5;
r2:=3;
r3 := LdExp(r1,r2);
MessageDlg('LdExp(5,3): ' + floattostr(r3), mtInformation, [mbOk], 0);
end;
Sonuç: LdExp(5,3) : 40
Açılımı : [( 5*2^3)]=40
Delphi - .....................................
LdExp Fonksiyonu (Aritmetik Usuller) - 2 nin üstünü alıp, katsayı ile çarpma
2 sayısının üstünü alıp belirtilen katsayı ile çarpım yapmak için kullanılır.
Kullanımı: Ldexp(const Katsayı: Extended; const Üstü: Integer);
Örnek :
Uses Math;
var
r2: Integer;
r1,r3: Real;
begin
r1:=5;
r2:=3;
r3 := LdExp(r1,r2);
MessageDlg('LdExp(5,3): ' + floattostr(r3), mtInformation, [mbOk], 0);
end;
Sonuç: LdExp(5,3) : 40
Açılımı : [( 5*2^3)]=40
Delphi - .....................................
Ln Fonksiyonu (Aritmetik Usuller) - Doğal logaritma
Doğal logaritmayı ( e tabanındaki Logaritma) yı bulmak için kullanılır.
x in sıfır yakın olması durumunda LnXp1 kullanmanız tavsiye edilir.
Kullanımı : Ln(X: Real): Real;
Örnek :
Uses System;
procedure TForm1.Button1Click(Sender: TObject);
var
r3: Real;
begin
r3 := Ln(10.5);
MessageDlg('Ln(10.5): ' + floattostr(r3), mtInformation, [mbOk], 0);
end;
Delphi - .....................................
Ln Fonksiyonu (Aritmetik Usuller) - Doğal logaritma
Doğal logaritmayı ( e tabanındaki Logaritma) yı bulmak için kullanılır.
x in sıfır yakın olması durumunda LnXp1 kullanmanız tavsiye edilir.
Kullanımı : Ln(X: Real): Real;
Örnek :
Uses System;
procedure TForm1.Button1Click(Sender: TObject);
var
r3: Real;
begin
r3 := Ln(10.5);
MessageDlg('Ln(10.5): ' + floattostr(r3), mtInformation, [mbOk], 0);
end;
Delphi - .....................................
LnXp1 Fonksiyonu (Aritmetik Usuller) - Doğal logaritma
Doğal logaritmayı ( e tabanındaki Logaritma) yı bulmak için kullanılır.
Ln(x+1) ile LnXp1(x) aynı sonucu dönderir.
x in sıfır yakın olması durumunda LnXp1 kullanmanız tavsiye edilir.
Kullanımı : LnXp1(X: Real): Real;
Örnek :
Uses Math;
procedure TForm1.Button1Click(Sender: TObject);
var
r3,r2: Real;
begin
r3 := Ln(9+1);
MessageDlg('Ln(10): ' + floattostr(r3), mtInformation, [mbOk], 0);
r2 := LnXp1(9);
MessageDlg('LnXp1(9): ' + floattostr(r2), mtInformation, [mbOk], 0);
end;
Delphi - .....................................
LnXp1 Fonksiyonu (Aritmetik Usuller) - Doğal logaritma
Doğal logaritmayı ( e tabanındaki Logaritma) yı bulmak için kullanılır.
Ln(x+1) ile LnXp1(x) aynı sonucu dönderir.
x in sıfır yakın olması durumunda LnXp1 kullanmanız tavsiye edilir.
Kullanımı : LnXp1(X: Real): Real;
Örnek :
Uses Math;
procedure TForm1.Button1Click(Sender: TObject);
var
r3,r2: Real;
begin
r3 := Ln(9+1);
MessageDlg('Ln(10): ' + floattostr(r3), mtInformation, [mbOk], 0);
r2 := LnXp1(9);
MessageDlg('LnXp1(9): ' + floattostr(r2), mtInformation, [mbOk], 0);
end;
Delphi - .....................................
Log10 Fonksiyonu (Aritmetik Usuller) - On tabanındaki logoritma sonucu almak için kullanılır.
on tabanındaki logoritma sonucu almak için kullanılır.
Kullanımı : Log10(const X: Extended): Extended;
Örnek :
Uses Math;
procedure TForm1.Button1Click(Sender: TObject);
var
r3: Real;
begin
r3 := Log10(10);
MessageDlg('Log10(10): ' + floattostr(r3), mtInformation, [mbOk], 0);
end;
Delphi - .....................................
Log10 Fonksiyonu (Aritmetik Usuller) - On tabanındaki logoritma sonucu almak için kullanılır.
on tabanındaki logoritma sonucu almak için kullanılır.
Kullanımı : Log10(const X: Extended): Extended;
Örnek :
Uses Math;
procedure TForm1.Button1Click(Sender: TObject);
var
r3: Real;
begin
r3 := Log10(10);
MessageDlg('Log10(10): ' + floattostr(r3), mtInformation, [mbOk], 0);
end;
Delphi - .....................................
Log2 Fonksiyonu (Aritmetik Usuller) - iki tabanındaki logoritma sonucu almak için kullanılır.
iki tabanındaki logoritma sonucu almak için kullanılır.
Kullanımı : Log10(const X: Extended): Extended;
Örnek :
Uses Math;
procedure TForm1.Button1Click(Sender: TObject);
var
r3: Real;
begin
r3 := Log2(10);
MessageDlg('Log2(10): ' + floattostr(r3), mtInformation, [mbOk], 0);
end;
Delphi - .....................................
Log2 Fonksiyonu (Aritmetik Usuller) - iki tabanındaki logoritma sonucu almak için kullanılır.
iki tabanındaki logoritma sonucu almak için kullanılır.
Kullanımı : Log10(const X: Extended): Extended;
Örnek :
Uses Math;
procedure TForm1.Button1Click(Sender: TObject);
var
r3: Real;
begin
r3 := Log2(10);
MessageDlg('Log2(10): ' + floattostr(r3), mtInformation, [mbOk], 0);
end;
Delphi - .....................................
LogN Fonksiyonu (Aritmetik Usuller) - N tabanındaki logoritma sonucu almak için kullanılır.
N tabanındaki logoritma sonucu almak için kullanılır.
Kullanımı : LogN(const Base, X: Extended): Extended;
LogN(Taban,Değer);
Örnek :
Uses Math;
procedure TForm1.Button1Click(Sender: TObject);
var
r3: Real;
begin
r3 := LogN(3,10);
MessageDlg('LogN(10,10): ' + floattostr(r3), mtInformation, [mbOk], 0);
end;
Delphi - .....................................
LogN Fonksiyonu (Aritmetik Usuller) - N tabanındaki logoritma sonucu almak için kullanılır.
N tabanındaki logoritma sonucu almak için kullanılır.
Kullanımı : LogN(const Base, X: Extended): Extended;
LogN(Taban,Değer);
Örnek :
Uses Math;
procedure TForm1.Button1Click(Sender: TObject);
var
r3: Real;
begin
r3 := LogN(3,10);
MessageDlg('LogN(10,10): ' + floattostr(r3), mtInformation, [mbOk], 0);
end;
Delphi - .....................................
Max Fonksiyonu (Aritmetik Usuller) - İki sayısal değeri karşılaştırma (Sonuç : Büyük)
İki sayısal değeri karşılaştırmak için kullanılır. Sonuç olarka büyük değer
döner.
Kullanımı : Max(A,B: Integer): Integer; overload;
Max(A,B: Int64): Int64; overload;
Max(A,B: Single): Single; overload;
Max(A,B: Double): Double; overload;
Max(A,B: Extended): Extended; overload;
Örnek :
Uses Math;
procedure TForm1.Button1Click(Sender: TObject);
var
r3: Integer;
begin
r3 := Max(100,50);
MessageDlg('Max(100,50) : ' + floattostr(r3), mtInformation, [mbOk], 0);
end;
Sonuç : Max(100,50) : 100
Delphi - .....................................
Max Fonksiyonu (Aritmetik Usuller) - İki sayısal değeri karşılaştırma (Sonuç : Büyük)
İki sayısal değeri karşılaştırmak için kullanılır. Sonuç olarka büyük değer
döner.
Kullanımı : Max(A,B: Integer): Integer; overload;
Max(A,B: Int64): Int64; overload;
Max(A,B: Single): Single; overload;
Max(A,B: Double): Double; overload;
Max(A,B: Extended): Extended; overload;
Örnek :
Uses Math;
procedure TForm1.Button1Click(Sender: TObject);
var
r3: Integer;
begin
r3 := Max(100,50);
MessageDlg('Max(100,50) : ' + floattostr(r3), mtInformation, [mbOk], 0);
end;
Sonuç : Max(100,50) : 100
Delphi - .....................................
Min Fonksiyonu (Aritmetik Usuller) - İki sayısal değeri karşılaştırma (Sonuç : Küçük)
İki sayısal değeri karşılaştırmak için kullanılır. Sonuç olarak küçük değer
döner.
Kullanımı : Min(A,B: Integer): Integer; overload;
Min(A,B: Int64): Int64; overload;
Min(A,B: Single): Single; overload;
Min(A,B: Double): Double; overload;
Min(A,B: Extended): Extended; overload;
Örnek :
Uses Math;
procedure TForm1.Button1Click(Sender: TObject);
var
r3: Integer;
begin
r3 := Min(100,50);
MessageDlg('Min(100,50) : ' + floattostr(r3), mtInformation, [mbOk], 0);
end;
Sonuç : Min(100,50) : 50
Delphi - .....................................
Min Fonksiyonu (Aritmetik Usuller) - İki sayısal değeri karşılaştırma (Sonuç : Küçük)
İki sayısal değeri karşılaştırmak için kullanılır. Sonuç olarak küçük değer
döner.
Kullanımı : Min(A,B: Integer): Integer; overload;
Min(A,B: Int64): Int64; overload;
Min(A,B: Single): Single; overload;
Min(A,B: Double): Double; overload;
Min(A,B: Extended): Extended; overload;
Örnek :
Uses Math;
procedure TForm1.Button1Click(Sender: TObject);
var
r3: Integer;
begin
r3 := Min(100,50);
MessageDlg('Min(100,50) : ' + floattostr(r3), mtInformation, [mbOk], 0);
end;
Sonuç : Min(100,50) : 50
Delphi - .....................................
MulDiv Fonksiyonu (Aritmetik Usuller) - (a*b)/c
(a*b) / c sonucunda bir değer almak için kullanılır. Eğer c=0 ise sonuç
olarak -1 döner.
Kullanımı : MulDiv(Number, Numerator, Denominator: Integer): Integer;
MulDiv(Sayı,Pay,payda);
Örnek :
procedure TForm1.Button1Click(Sender: TObject);
var
r3: Integer;
begin
r3 := MulDiv(2,6,2);
MessageDlg('(2*6)/2 = ' + floattostr(r3), mtInformation, [mbOk], 0);
end;
Sonuç : 6
Delphi - .....................................
MulDiv Fonksiyonu (Aritmetik Usuller) - (a*b)/c
(a*b) / c sonucunda bir değer almak için kullanılır. Eğer c=0 ise sonuç
olarak -1 döner.
Kullanımı : MulDiv(Number, Numerator, Denominator: Integer): Integer;
MulDiv(Sayı,Pay,payda);
Örnek :
procedure TForm1.Button1Click(Sender: TObject);
var
r3: Integer;
begin
r3 := MulDiv(2,6,2);
MessageDlg('(2*6)/2 = ' + floattostr(r3), mtInformation, [mbOk], 0);
end;
Sonuç : 6
Delphi - .....................................
Pi Fonksiyonu (Aritmetik Usuller) - Pi =3.1415926535897932385
Pi sayısını dönderir.
Kullanımı : Pi: Extended;
Örnek :
Uses System;
procedure TForm1.Button1Click(Sender: TObject);
var
r3: real;
begin
r3 := pi;
MessageDlg('Pi=' + floattostr(r3), mtInformation, [mbOk], 0);
end;
Sonuç: 3.1415926535897932385;
Delphi - .....................................
Pi Fonksiyonu (Aritmetik Usuller) - Pi =3.1415926535897932385
Pi sayısını dönderir.
Kullanımı : Pi: Extended;
Örnek :
Uses System;
procedure TForm1.Button1Click(Sender: TObject);
var
r3: real;
begin
r3 := pi;
MessageDlg('Pi=' + floattostr(r3), mtInformation, [mbOk], 0);
end;
Sonuç: 3.1415926535897932385;
Delphi - .....................................
Poly Fonksiyonu (Aritmetik Usuller) - Polinom fonksiyonlarını hesaplamak için kullanılır.
Polinom fonksiyonlarını hesaplamak için kullanılır.
Kullanımı : Poly( const X: Extended;
const Coefficients: array of Double): Extended;
Örnek :
Uses Math;
procedure TForm1.Button1Click(Sender: TObject);
var
Katsayi: array[0..2] of double;
r3, x: real;
begin
Katsayi[0] := -1;
Katsayi[1] := 4;
Katsayi[2] := 2;
x := 2;
r3 := poly(x, Katsayi);
MessageDlg('2X^2 + 4X - 1 polinomun sonucu=' + floattostr(r3), mtInformation,
[mbOk], 0);
end;
Sonuc: 2X^2 + 4X - 1 polinomun sonucu=15;
Delphi - .....................................
Poly Fonksiyonu (Aritmetik Usuller) - Polinom fonksiyonlarını hesaplamak için kullanılır.
Polinom fonksiyonlarını hesaplamak için kullanılır.
Kullanımı : Poly( const X: Extended;
const Coefficients: array of Double): Extended;
Örnek :
Uses Math;
procedure TForm1.Button1Click(Sender: TObject);
var
Katsayi: array[0..2] of double;
r3, x: real;
begin
Katsayi[0] := -1;
Katsayi[1] := 4;
Katsayi[2] := 2;
x := 2;
r3 := poly(x, Katsayi);
MessageDlg('2X^2 + 4X - 1 polinomun sonucu=' + floattostr(r3), mtInformation,
[mbOk], 0);
end;
Sonuc: 2X^2 + 4X - 1 polinomun sonucu=15;
Delphi - .....................................
Power Fonksiyonu (Aritmetik Usuller) - Ondalık bir sayını n.n ci kuvvetini almak için kullanılır.
Ondalık bir sayını n.n ci kuvvetini almak için kullanılır.
Kullanımı : Power(const Base, Exponent: Extended): Extended;
procedure TForm1.Button1Click(Sender: TObject);
var
r3: real;
begin
r3 := Power(5.3,3.5);
MessageDlg('Power(5.2,3.5)=' + floattostr(r3), mtInformation,
[mbOk], 0);
end;
Sonuç : 320,635...
Delphi - .....................................
Power Fonksiyonu (Aritmetik Usuller) - Ondalık bir sayını n.n ci kuvvetini almak için kullanılır.
Ondalık bir sayını n.n ci kuvvetini almak için kullanılır.
Kullanımı : Power(const Base, Exponent: Extended): Extended;
procedure TForm1.Button1Click(Sender: TObject);
var
r3: real;
begin
r3 := Power(5.3,3.5);
MessageDlg('Power(5.2,3.5)=' + floattostr(r3), mtInformation,
[mbOk], 0);
end;
Sonuç : 320,635...
Delphi - .....................................
Round Fonksiyonu (Aritmetik Usuller) - Yuvarlama işlemi yapmak için kullanılır
Yuvarlama işlemi yapmak için kullanılır. Sayının ondalık kısmı 0,50 den buyukse
yukarı doğru, ondalık kısmı 0,50 ye eşit veya küçükse aşağı doğru yuvarlama yapar.
Kullanımı : Round(X: Extended): Int64;
Örnek :
Uses System;
procedure TForm1.Button1Click(Sender: TObject);
var
S, T: string;
begin
Str(1.4:2:1, T);
S := T + ' rounds to ' + IntToStr(Round(1.4)) + #13#10;
Str(1.5:2:1, T);
S := S + T + ' rounds to ' + IntToStr(Round(1.5)) + #13#10;
Str(-1.4:2:1, T);
S := S + T + ' rounds to ' + IntToStr(Round(-1.4)) + #13#10;
Str(-1.5:2:1, T);
S := S + T + ' rounds to ' + IntToStr(Round(-1.5));
MessageDlg(S, mtInformation, [mbOk], 0);
end;
Sonuç : 1.4 rounds to 1
1.5 rounds to 2
-1.4 rounds to -1
-1.5 rounds to -2
Delphi - .....................................
Round Fonksiyonu (Aritmetik Usuller) - Yuvarlama işlemi yapmak için kullanılır
Yuvarlama işlemi yapmak için kullanılır. Sayının ondalık kısmı 0,50 den buyukse
yukarı doğru, ondalık kısmı 0,50 ye eşit veya küçükse aşağı doğru yuvarlama yapar.
Kullanımı : Round(X: Extended): Int64;
Örnek :
Uses System;
procedure TForm1.Button1Click(Sender: TObject);
var
S, T: string;
begin
Str(1.4:2:1, T);
S := T + ' rounds to ' + IntToStr(Round(1.4)) + #13#10;
Str(1.5:2:1, T);
S := S + T + ' rounds to ' + IntToStr(Round(1.5)) + #13#10;
Str(-1.4:2:1, T);
S := S + T + ' rounds to ' + IntToStr(Round(-1.4)) + #13#10;
Str(-1.5:2:1, T);
S := S + T + ' rounds to ' + IntToStr(Round(-1.5));
MessageDlg(S, mtInformation, [mbOk], 0);
end;
Sonuç : 1.4 rounds to 1
1.5 rounds to 2
-1.4 rounds to -1
-1.5 rounds to -2
Delphi - .....................................
RoundTo Fonksiyonu (Aritmetik Usuller) - Ondalık sayının yuvarlama şeklini belirleme
Ondalık bir sayının virgülden sonra kaç rakamın gözükeceğini belirtmek veya
tamsayı kısmını yuvarlamak için kullanılır.
Kulllanımı : RoundTo(const AValue: Double; Const ADigit: TRoundToRange): Double;
AValue : Yuvarlanacak olan rakam.
ADigit : Yuvarlamanın nasıl yapılacağını belirten sayı.Bu sayı TRoundToRange
tipine bağlıdır. Bu tipite girilebilecek değer -37..37 arasında
sınırlandırılmıştır. Bu nedenle ADigit alanına -37..37 arasında bir değer
girilmediğinde delphi derleme anı hatası verecektir.
Örnek :
Uses Math;
procedure TForm1.Button1Click(Sender: TObject);
var
r1, r2, r3, r4, r5, r6, r7: Real;
begin
r1 := Roundto(112.547, -3);
r2 := Roundto(112.547, -2);
r3 := Roundto(112.547, -1);
r4 := Roundto(112.547, 0);
r5 := Roundto(112.547, 1);
r6 := Roundto(112.547, 2);
r7 := Roundto(112.547, 3);
MessageDlg('r1 : ' + floattostr(r1) + #13 + 'r2 : ' + floattostr(r2) + #13 +
'r3 : ' + floattostr(r3) + #13 + 'r4 : ' + floattostr(r4) + #13 +
'r5 : ' + floattostr(r5) + #13 + 'r6 : ' + floattostr(r6) + #13 +
'r7 : ' + floattostr(r7), mtInformation, [mbOk], 0);
end;
Sonuç : r1 : 112,547
r2 : 112,55
r3 : 112,5
r4 : 113
r5 : 110
r6 : 100
r7 : 0
Delphi - .....................................
RoundTo Fonksiyonu (Aritmetik Usuller) - Ondalık sayının yuvarlama şeklini belirleme
Ondalık bir sayının virgülden sonra kaç rakamın gözükeceğini belirtmek veya
tamsayı kısmını yuvarlamak için kullanılır.
Kulllanımı : RoundTo(const AValue: Double; Const ADigit: TRoundToRange): Double;
AValue : Yuvarlanacak olan rakam.
ADigit : Yuvarlamanın nasıl yapılacağını belirten sayı.Bu sayı TRoundToRange
tipine bağlıdır. Bu tipite girilebilecek değer -37..37 arasında
sınırlandırılmıştır. Bu nedenle ADigit alanına -37..37 arasında bir değer
girilmediğinde delphi derleme anı hatası verecektir.
Örnek :
Uses Math;
procedure TForm1.Button1Click(Sender: TObject);
var
r1, r2, r3, r4, r5, r6, r7: Real;
begin
r1 := Roundto(112.547, -3);
r2 := Roundto(112.547, -2);
r3 := Roundto(112.547, -1);
r4 := Roundto(112.547, 0);
r5 := Roundto(112.547, 1);
r6 := Roundto(112.547, 2);
r7 := Roundto(112.547, 3);
MessageDlg('r1 : ' + floattostr(r1) + #13 + 'r2 : ' + floattostr(r2) + #13 +
'r3 : ' + floattostr(r3) + #13 + 'r4 : ' + floattostr(r4) + #13 +
'r5 : ' + floattostr(r5) + #13 + 'r6 : ' + floattostr(r6) + #13 +
'r7 : ' + floattostr(r7), mtInformation, [mbOk], 0);
end;
Sonuç : r1 : 112,547
r2 : 112,55
r3 : 112,5
r4 : 113
r5 : 110
r6 : 100
r7 : 0
Delphi - .....................................
SameValue Fonksiyonu (Aritmetik Usuller) - İki ondalık sayının eşitliğinin karşılaştırılması***
İki ondalık sayının eiştiliğini karşılaştırır. Bu fark sıfıra eşit ise yani a-b=0
ise sonuç true değilse false olur. SameValue fonksiyonunda üç parametreden oluşur.
bunlardan ilk ikisi eşitliği karşılaştırlıcak ondalık sayılar üçüncü parametre ise
bu eşitliğin neye eşit olcağıdır. Eğer SameValue fonksiyonunda iki parametre
kullanılırsa üçüncü parametreyi deplhi varsayılan olarak 0 olarak kabul eder.
Kullanınmı :
SameValue(const A, B: Single; Epsilon: Single = 0): Boolean; overload;
SameValue(const A, B: Double; Epsilon: Double = 0): Boolean; overload;
SameValue(const A, B: Extended; Epsilon: Extended = 0): Boolean; overload;
Örnek :
Uses Math;
procedure TForm1.Button1Click(Sender: TObject);
begin
if samevalue(13.7, 10.7, 3) = true then
begin
MessageDlg('Sonuç Üçe Eşit ', mtInformation, [mbOk], 0);
end;
if samevalue(13.7, 10.7) = true then
begin
MessageDlg('Sonuç Sıfıra Eşit ', mtInformation, [mbOk], 0);
end;
end;
Delphi - .....................................
