lazarus 四舍六入修约简述

使用round()函数，默认进行银行家算法修约，但数据类型需要设为float型。

procedure TForm1.Button1Click(Sender: TObject);
varx:float;n:integer;
beginx:=StrToFloat(Edit1.Text);n:=StrToInt(Edit2.Text);x:=round(x*Power(10,n));x:=x/Power(10,n);Label1.Caption:=FloatToStr(x);end;

其中math单元中含有roundTo() 函数、simpleRoundTo() 函数，

//保留2位小数，四舍五入 b1 := RoundTo(a, -2); ShowMessage(FloatToStr(b1));

//保留2位小数，四舍五入 b2 := SimpleRoundTo(a); ShowMessage(FloatToStr(b2));

//保留2位小数，不四舍五入 b3 := Trunc(a *100)/100; ShowMessage(FloatToStr(b2)); end;

lazarus 四舍六入修约简述相关推荐

EXCEL的水文数据四舍六入修约
1.EXCEL数据的单元格四舍六入(不启用VBA宏) 保留三位小数的四舍六入,在单元格内输入或拷贝: =TEXT(IF(ISEVEN(TRUNC(E510^ 3)),IF(ROUND(E510^ 3- ...
有效数字修约，按四舍六入五成双原则
# 定义函数修约小数位数,按四舍六入五成双的原则 def Little (x,y): # x是要修约的数,y是要保留的小数位数.ABS_x = abs(x) # 取x的绝对值str_x = str(A ...
小数位数修约，四舍六入五成双
# 定义函数修约小数位数,按四舍六入五成双的原则 def Little (x,y): # x是要修约的数,y是要保留的小数位数.ABS_x = abs(x) # 取x的绝对值str_x = str(A ...
四舍六入五成双并保留一位有效位-数据修约
C# /// <summary>/// 数据修约 -- 四舍六入5成双,至少保留一位有效位/// 数值0.00512,保留2位,修约为0.01/// </summary>/// ...
四舍六入五凑偶”的修约规则进行修约
修约描述在物理实验中,处理数据时常常需要对结果按照"四舍六入五凑偶"的修约规则进行修约.在本题中,我们需要对一个精度为5位以内的数按照上述规则保留两位小数. 例如: 9.824 ...
数理统计(数值修约、0.5修约、0.2修约、有效数字运算、平均值、中位数、极差、标准差、变异系数)
一.数值修约: 口诀:四舍六入五考虑,五后非零则进一,五后皆零看奇偶,奇进偶舍不连续. 1.15保留一位小数:1.15=1.2(五后非零看五前面是奇数还是偶数,1是奇数,所以进1位=1.2) 1.1 ...
浮点数修约的法则c语言,IEEE754浮点表示法详解
前言 IEEE754是IEEE二进制浮点算术标准.这个标准定义了表示浮点数的常规值与非规格化值(denormal number),一些特殊值(infinity)和非数值(NaN), 以及这些数值的浮点 ...
修约函数，四舍六进五单双的修约规则，给有需要的朋友参考
首先来一个JAVASCRIPT 版本 JAVASCRIPT版修约函数 1 <!-- 2 //################################################# ...
C# 小数位修约（保留小数位有效数位）
实现代码: /// <summary> /// 小数位修约 -- 四舍六入5成双,至少保留一位有效位(四舍六入五成双) /// 数值0.00512,保留2位,修约为0.005:0.0002 ...

lazarus 四舍六入修约简述

lazarus 四舍六入修约简述

lazarus 四舍六入修约简述相关推荐

最新文章

热门文章