порядок числа.

← →
McSimm2 (2003-12-02 11:08) [0]

как узнать какого порядка является число?

123534 - 5
2332323 - 6

← →
Неизвесный доброжелатель (2003-12-02 11:16) [1]

Length(IntToStr(123534))-1

← →
LVV (2003-12-02 11:17) [2]

Length(IntToStr(YourNumber))-1

← →
McSimm2 (2003-12-02 11:19) [3]

не-е-е, эт не поёдёт, - я пишу свой inttostr и мне как раз и нужно для этого определить порядок..

function TForm1.GetStr2(ANum : integer):string; var stop : boolean; por : integer; koef : integer; tmpNum : integer; begin por := 1000000000; tmpNum := ANum; result := ""; while tmpNum>0 do begin koef := tmpNum div por; tmpNum := tmpNum-koef*por; por := por div 10; result := result + char(48+koef); if por=0 then por:=1; end; end;

Что бы для переменной порядка указать 10 в степени `??`

← →
Dimka Maslov © (2003-12-02 11:21) [4]

function GetExp(N: Integer): Integer;
begin
Result := -1;
repeat
N := N div 10;
Inc(Result);
until N = 0;
end;

← →
TUser © (2003-12-02 11:22) [5]

trunc(ln(num)/ln(10))+1;
Только ЗАЧЕМ тебе понадобился собственный inttostr?

← →
Семен Сорокин © (2003-12-02 11:30) [6]

велосипед?
что-то типа этого :)

function IntLength(AValue: integer): byte; var _i: integer; begin if AValure = 0 then Result := 0 else begin Result := 1; _i := 10; while Abs(AValue) div _i <> 0 do begin inc(Result); _i := _i*10 end; if AValue < 0 then Result := -Result end end;

← →
Ru © (2003-12-02 11:33) [7]

>McSimm2 (02.12.03 11:19) [3]

велосипед изобретают на удивление часто:
http://delphibase.endimus.com/?action=viewfunc&topic=strconvert&id=10406

← →
McSimm2 (2003-12-02 11:33) [8]

IMHO

trunc(ln(num)/ln(10))+1;

намного проще ....

McSimm2 (02.12.03 11:33) [8]
а для 0 и отрицательных чисел?

> намного проще ....

еще проще - родная паскалевская функция. Но если стоит задача написать что-нибудь помудренее - тогда, конечно [6].

порядок числа. Найти похожие ветки