Delphi'de Yuvarlama Fonksiyonu

Delphi 7'de hazır bulunan yuvarlama fonksiyonları, banker yuvarlaması olarak çalışıyormuş. Bu nedenle integer aralığında çalışan bir fonksiyon yazmak zorunda kaldım.

function yuvarla(sayi: real):integer;
var
  tam, ondalik: integer;
begin
  tam:=trunc(sayi);
  ondalik:=trunc(frac(sayi)*10);
  if ondalik>=5 then
    result:=tam+1
  else
    result:=tam;
end;

 

30.12.2020 03:27:05


Etiketler: pascal, delphi fonksiyonları

Yorumlar

Bu yazıya henüz yorum yapılmamış.

Yazı hakkında yorum yapmak için, buraya tıklayın.

Kategoriler :

Reklam :

Arşiv :

Etiketler :

Bağlantılar :