Delphide yuvarlama komutları

sWaGg€r

29.05.2008 23:06:48

“Ceil”
Parametre olarak girilen ondalıklı sayıyı bir üst seviyedeki tam sayıya
çevirir.Dönen sayının tipi tamsayıdır.

procedure TForm1.Button2Click(Sender: TObject);
var
sayi:Real;
sonuc:Integer;
begin
sayi:=125.2;
sonuc:=Ceil(sayi); //Ondalıklı sayıyı üste yuvarla
Form1.Caption:=IntToStr(sonuc);// 126 yazar
end;

“Floor”
Parametre olarak girilen değerin(ondalıklı değerin)virgülden sonradaki
değerine bakmaksızın tam kısmının bir alt seviyeye çevirmesini sağlar.Ceil
fonksiyonunun tam tersini yapar.Sayının pozitif veya negatif olması önem
arz etmez.

procedure TForm1.Button4Click(Sender: TObject);
var
sayi:Real;
sonuc:Integer;
begin
sayi:=125.9;
sonuc:=Floor(sayi); //Bir alt tam sayıya indir.
Form1.Caption:=IntToStr(sonuc);// 125 yazar
end;

“Trunc”
Parametre olarak girilen ondalıklı değerin sadece tam kısmını
döndürür.Herhangi bir yuvarlatma söz konusu değildir.

procedure TForm1.Button5Click(Sender: TObject);
var
sayi:Real;
sonuc:Integer;
begin
sayi:=125.9;
sonuc:=Trunc(sayi); //sadece tam kısmını göster
Form1.Caption:=IntToStr(sonuc);// 125 yazar
end;

“Frac”
Parametre olarak girilen değerin sadece ondalıklı kısmını döndürür.Trunc
fonksiyonunun tam tersidir.

procedure TForm1.Button6Click(Sender: TObject);
var
sayi:Real;
sonuc:Extended;
begin
sayi:=125.756; //isterseniz bir kontrolden değer aktarabilirsiniz.
sonuc:=Frac(sayi); //ondalıklı kısmı al
Form1.Caption:=FloatToStr(sonuc);// 0.756 yazar
end;