Delphi中的round()是统计学上的四舍五入，用起来不方便，
可以如下自定义
//四舍五入代码1
    int:=Trunc(rel);//只舍不入
    int1:=Round(rel); //rond 的法则是四舍六入，5看奇偶。
    if int1=int  then
        begin
          rel1:=rel+1;
          int1:=Trunc(rel1);
          if Round(rel1)>int1 then
          begin
            Writeln(rel,'四舍五入得1',int1);
          end
          else
            Writeln(rel,'四舍五入得2',int);delphi trunc函数
          end
        else
          Writeln(rel,'四舍五入得3',int1);
//四舍五入代码 2
          rel:=17.0;
          int:=Round(rel);
          int1:=Round(rel+1);
          if int1-int=2 then
              int:=int+1;
          Writeln(rel,'四舍五入',int);
//四舍五入代码 3
          rel:=18.5;
          int:=Round(rel);
          if int<rel then
              begin
                rel1:=rel+1;
                int1:=Round(rel1);
                if rel1<int1 then
                int:=int+1;
              end;
          Writeln(rel,'四舍五入',int);
//代码4
//直接用PSACAL中的FormatFloat（）;
FormatFloat(‘0’,12.5)//四舍五入保留整数；
FormatFloat(‘0.0’,12.512)//保留两位小数，也可以用#代替0，表示不足位数可以空缺。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。