Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.24;
Скачать: CL | DM;

Вниз

Количество знаков после запятой   Найти похожие ветки 

 
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;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.022 c
1-1097216398
lightix
2004-10-08 10:19
2004.10.24
Определить что копмьютер простаивает


14-1096881717
1100111
2004-10-04 13:21
2004.10.24
Про обновления Windows


3-1095930591
Denis
2004-09-23 13:09
2004.10.24
Не могу записать имя таблицы латинскими сомволами


14-1096615177
Григорьев Антон
2004-10-01 11:19
2004.10.24
Лингвистические пятничные задачи


1-1097355900
dock
2004-10-10 01:05
2004.10.24
Как сделать чтобы форма пропускала сообщения сквозь себя и не зад