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

Вниз

Округление   Найти похожие ветки 

 
moorcat   (2002-12-09 12:52) [0]

Как округлить тип Real до необходимого значения? (Например до сотых)


 
OlegMsc ©   (2002-12-09 12:57) [1]

RoundTo(...,...)


 
Виктор Щербаков ©   (2002-12-09 13:00) [2]

Не обманывай. В Д5 нет такой функции :)


 
OlegMsc ©   (2002-12-09 13:02) [3]

жаль :(
но наверное есть другая...
я просто в этом уверен :)


 
Axis_of_Evil ©   (2002-12-09 13:02) [4]

свою написать


 
Виктор Щербаков ©   (2002-12-09 13:03) [5]

OlegMsc © (09.12.02 13:02)
Ага. Например умножить на сто, округлить до целых и поделить на сто.


 
moorcat   (2002-12-09 13:32) [6]

Например, так:

function TForm1.Okrugl(cs: double; numb: integer): double;
var
db,db1,db2: double;
i: int64;
ii,ink,i1: integer;
begin
db:=cs-int(cs);
ink:=1;
for ii:=1 to numb
do ink:=ink*10;
db1:=db*ink;
db2:=cs*ink*100;
i:=trunc(int(db2)/100);
i1:=trunc(db2-i*100);
if i1>49
then inc(i);
result:=i/ink;
end;


 
Separator ©   (2002-12-09 13:34) [7]

Зачем так мучатся?

function RoundNumber(Value: double; Digit: byte): string;
var
Factor: Extended;

begin
Factor:= Int(Exp(Digit*Ln(10)));
Result:= FloatToStr(Round(Factor*Value)/Factor);
end;


 
Anatoly Podgoretsky ©   (2002-12-09 14:13) [8]

Для любителей


procedure TForm1.Button1Click(Sender: TObject);
var
Num:Single;
I : Integer;
begin
Num := 0.02;
ShowMessage(FloatToStr(Num));
ShowMessage(FloatToStr(Trunc(Num * 100)/100));
end;



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

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

Наверх




Память: 0.48 MB
Время: 0.014 c
1-61570
Xmen
2002-12-09 10:11
2002.12.19
String to Char


1-61606
pavel_ak
2002-12-10 13:26
2002.12.19
Об Hint e


4-61866
Nick-From
2002-11-05 21:23
2002.12.19
Integer & Dword +WINAPI


14-61827
al_
2002-11-27 23:42
2002.12.19
Мастера!!! Помогите с задачкой!!!


3-61395
berezne
2002-12-03 00:29
2002.12.19
Последовательность