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

Вниз

Как считать выражение с заданной точностью?   Найти похожие ветки 

 
vovaS   (2002-03-11 18:52) [0]

Есть два числа типа extended. Делю одно на другое, а результат мне возвращаеться в експоненциальном виде.

Например: 15/1000000=1.5е-5.

Как сделать, чтобы вернуло 0.000015?


 
MBo ©   (2002-03-11 19:31) [1]

посмотри Format, FloatToStrF, FormatFloat и т.п.


 
XOY   (2002-03-11 20:00) [2]

Ну можешь так попробовать:

function RealToString(p1: real; p2: byte): string;
var
cel: int64;
i: byte;
mn: integer;
dr: string;
begin
cel:= Trunc(p1);
mn:= 1;
for i:= 1 to p2 do mn:= mn*10;
dr:= inttostr(abs(round((p1 - cel)*mn)));
RealToString:= inttostr(cel) + "," + dr;
end;


 
XOY   (2002-03-11 20:12) [3]

Забыл сказать: пораметр p2 - до какого знака округлять. Только один глюк есть. Если дробная часть короче чем p2 то остальное нулями заполняется т.е. RealToStr(1.11, 5) = 1,11000.


 
kull   (2002-03-16 21:25) [4]


> XOY
> Ну можешь так попробовать:

Шутка?



Страницы: 1 вся ветка

Текущий архив: 2002.03.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
1-90876
skovorodka
2002-03-17 13:55
2002.03.28
Путь в Explorer/Regdit


1-90901
kull
2002-03-18 11:21
2002.03.28
Народ! срочно нужна помощь по Mail Slot!


4-91116
five
2002-01-28 15:39
2002.03.28
как программно узнать - включен или выключен сейчас ActiveDesktop ?


1-90941
UserL
2002-03-14 12:22
2002.03.28
Как связать объекты?


3-90805
lightix
2002-03-04 15:36
2002.03.28
Помогите с БД + Quick REPORT