RoundEx [Delphi -> C++Builder]
Привет всем.
Кто-нибудь, переведите эту функцию по округлению из Delphi на
C++Builder.
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;
--
С уважением,
Feniks mailto: feni***@b*****.ua
Номер выпуска : 2791
Возраст листа : 198 (дней)
Количество подписчиков :
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/120360
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru
-=[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; //***
}
*** - может и не нужно...