Форум: "Основная";
Текущий архив: 2004.10.24;
Скачать: [xml.tar.bz2];
ВнизКоличество знаков после запятой Найти похожие ветки
← →
Dinnik (2004-10-11 15:36) [0]Забываю как определить количество знаков после запятой. Какая функция? Спасибо!!
← →
Суслик © (2004-10-11 15:42) [1]забываешь?
а я и не знал такой... :(((
как вспомнишь, напиши обязательно.
ЗЫ.
Тим числа какой?
← →
OSokin © (2004-10-11 20:30) [2]
funcion GetNumbersAfterPoint(num:real);
var s:string;
begin
s:=currtostr(num);
result:=length(s)-pos(s,".");
end;
Писалось только сейчас, принцип этот основной, так что не судите строга
← →
TUser © (2004-10-11 21:13) [3]
> result:=length(s)-pos(s,".");
DecimalSeparator, и не самый это основной принцып. Я бы делал не так умножал бы на десять, отбрасывал бы дробную часть. Каждый раз проверял бы, не ноль ли последняя цифра.
← →
Palladin © (2004-10-11 21:18) [4]
> [3] TUser ©
это ты зря... применяя твой алгоритм у 3.109, всего один знак после запятой...
← →
Palladin © (2004-10-11 21:21) [5]
> OSokin © (11.10.04 20:30)
а в твоей функции у числа 3 - 2 знака после запятой...
сам по себе вопрос не имеет смысла... 1/3 - количество знаков после запятой бесконечно...
проблема стоит по другому, а сколько ты хочешь выдеть знаков после запятой...
← →
begin...end © (2004-10-11 21:23) [6]Да и зачем это вообще нужно?
← →
Palladin © (2004-10-11 21:23) [7]
> OSokin © (11.10.04 20:30)
кстати :) в твоей функции количество знаков после запятой у числа 3.125324345 будет четыре... и вообще не больше четырех...
← →
Palladin © (2004-10-11 21:25) [8]
> begin...end © (11.10.04 21:23)
ну тут два варианта... либо в школе задачку дали, либо разрабатывает ПО для атомной электростанции....
← →
-=SS=- (2004-10-12 10:22) [9]Да....
Есть функция FloatToStrF() F1 нажмешь по ней и хелпе почитаешь.
← →
TUser © (2004-10-12 10:36) [10]
> это ты зря... применяя твой алгоритм у 3.109, всего один
> знак после запятой...
надо просто до конца досмотреть и запомнить, где был последний не-ноль.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.10.24;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.036 c