Здравствуйте, Havoc.
Вы писали 8 апреля 2004 г. в 2:02:44:
B>> double RoundEx( double X,N)
B>> { double ScaledFractPart, Temp;
B>> ScaledFractPart = Frac(X) * N;
B>> Temp = Frac(ScaledFractPart);
B>> ScaledFractPart = Int(ScaledFractPart);
B>> if (Temp >= 0.5) {ScaledFractPart = ScaledFractPart + 1;};
B>> if (Temp <= -0.5) {ScaledFractPart = ScaledFractPart - 1;};
B>> RoundEx = Int(X) + ScaledFractPart / N;
B>> return RoundEx; //***
B>> }
Борман, если б так все было просто, я тогда и сам так написал :-).
Неа... не работает твое творение. Не находит функции Frac и Int.
H> Ну незнаю как насчет BCB, но в синтаксис Си это не укладывается.
H> (Если то, что предложил БорМаН работает - плз. скажите)
H> на самом деле все намного проще:
H> double RoundEx(double X,double N)
H> {
H> double ScaledFractPart, Temp;
H> ScaledFractPart = X * N;
H> Temp = modf(ScaledFractPart,&ScaledFractPart);
H> if (Temp >= 0.5) ScaledFractPart = ScaledFractPart + 1;
H> if (Temp <= -0.5) ScaledFractPart = ScaledFractPart - 1;
H> return ScaledFractPart;
H> };
Havoc, можешь дать комментарии к modf ? И почему ты другие строки
по выкидывал ?
Цитирую из хелпа по Frac и Int:
FRAC
Returns the fractional part of a real number.
Unit
System
Category
arithmetic routines
function Frac(X: Extended): Extended;
Description
The Frac function returns the fractional part of the argument X.
X is a real-type expression. The result is the fractional part of X; that is,
Frac(X) = X - Int(X).
INT
Returns the integer part of a real number.
Unit
System
Category
arithmetic routines
function Int(X: Extended): Extended;
Description
Int returns the integer part of X; that is, X rounded toward zero. X is a real-type
expression.
--
С уважением,
Feniks mailto: feni***@b*****.ua
Номер выпуска : 2807
Возраст листа : 199 (дней)
Количество подписчиков : 386
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/120948
Получить правила : 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