Re: RoundEx [Delphi -> C++Builder]
-=[Hi!]=-
7 апреля 2004 г. /среда 16:34:50/ Feniks |E-Mail: <mailto:feni***@b*****.ua>|
в мессаге <<RoundEx [Delphi -> C++Builder]>> накрапал:
[B~E~G~I~N~>
function RoundEx(const X, N : Extended): Extended;
{N : 1 - до целых, 10 - до десятых, 100 - до сотых...}
var
ScaledFractPart, Temp : Extended;
begin
ScaledFractPart := Frac(X) * N;
Temp := Frac(ScaledFractPart);
ScaledFractPart := Int(ScaledFractPart);
if Temp >= 0.5 then ScaledFractPart := ScaledFractPart + 1;
if Temp <= -0.5 then ScaledFractPart := ScaledFractPart - 1;
Result := Int(X) + ScaledFractPart / N;
end;
[E|.|N|.|D|.>
double RoundEx( double X,N)
{ double ScaledFractPart, Temp;
ScaledFractPart = Frac(X) * N;
Temp = Frac(ScaledFractPart);
ScaledFractPart = Int(ScaledFractPart);
if (Temp >= 0.5) {ScaledFractPart = ScaledFractPart + 1;};
if (Temp <= -0.5) {ScaledFractPart = ScaledFractPart - 1;};
RoundEx = Int(X) + ScaledFractPart / N;
return RoundEx; //***
}
*** - может и не нужно...
