Rounding functions (Float)

 Top 

Example code : Int, Fraction, Floor, Ceiling, Round, Truncate

procedure TForm1.W3Button22Click(Sender: TObject);

var vr : float;

begin

  WriteLn('Round(12.75) = '+IntToStr(Round(12.75)));

  WriteLn('Trunc(12.75) = '+IntToStr(Trunc(12.75)));

  WriteLn('  Int(12.75) = '+FloatToStr(Int(12.75)));

  WriteLn(' Frac(12.75) = '+FloatToStr(Frac(12.75)));

 

  vr := 12.85;

  WriteLn(' Fraction(12.85) = '+FloatToStr(vr.Fraction()));

  WriteLn(' Floor(12.75) = '+FloatToStr(Floor(12.75)));

  WriteLn(' Ceiling(12.85) = '+FloatToStr(vr.Ceiling()));

  WriteLn(' Round(12.75) = '+FloatToStr(Round(12.75)));

  WriteLn(' Truncate(12.85) = '+FloatToStr(vr.Truncate()));

end;

 Round(12.75) = 13

 Trunc(12.75) = 12

 Int(12.75) = 12

 Frac(12.75) = 0.75

 Fraction(12.85) = 0.8499999999999996

 Floor(12.75) = 12

 Ceiling(12.85) = 13

 Round(12.75) = 13

 Truncate(12.85) = 12 

 

 

mytoggle_plus1JS output

function W3Button22Click(Self, Sender$20) {

      var vr = 0;

      WriteLn("Round(12.75) = 13");

      WriteLn("Trunc(12.75) = 12");

      WriteLn("  Int(12.75) = 12");

      WriteLn(" Frac(12.75) = 0.75");

      vr = 12.85;

      WriteLn((" Fraction(12.85) = "+FloatToStr$_Float_(Frac(vr))));

      WriteLn(" Floor(12.75) = 12");

      WriteLn((" Ceiling(12.85) = "+FloatToStr$_Float_(Math.ceil(vr))));

      WriteLn(" Round(12.75) = 13");

      WriteLn((" Truncate(12.85) = "+FloatToStr$_Float_(Trunc(vr))));

   }