分 类:科学 语 种:简体中文 编辑器:Delphi7 平 台:Win9x,Win2k/NT,WinXP 作品源代码: - 软件或演示: - 代码大小: - 软件大小: - 无图片 function SSWR(s: real): real; var r1, r2: real; s1, s2: string; begin r1 := int(s); r2 := frac(s); s1 := copy(floattostr(r1), 1, length(floattostr(r1))); if length(floattostr(r2)) >= 5 then begin if strtoint(copy((floattostr(r2)), 5, 1)) >= 5 then if strtoint(copy((floattostr(r2)), 4, 1)) = 9 then if strtoint(copy((floattostr(r2)), 3, 1)) = 9 then begin s1 := inttostr(strtoint(s1) + 1); s2 := ''; end else S2 := inttostr(strtoint(copy((floattostr(r2)), 3, 1)) + 1) else if copy((floattostr(r2)), 3, 1) = ''0'' then S2 := ''0'' + inttostr(strtoint(copy(floattostr(r2), 3, 2)) + 1) else s2 := inttostr(strtoint(copy(floattostr(r2), 3, 2)) + 1) else s2 := copy(floattostr(r2), 3, 2); end else s2 := copy(floattostr(r2), 3, 2); result := strtofloat(s1 + ''.'' + s2); end; //搞一个数字处理的程序,要用到四舍五入,将此函数奉上,供大家讨论。 (责任编辑:admin) |