Форум: "Основная";
Текущий архив: 2003.12.12;
Скачать: [xml.tar.bz2];
Внизпорядок числа. Найти похожие ветки
← →
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;
намного проще ....
← →
Семен Сорокин (2003-12-02 11:38) [9]McSimm2 (02.12.03 11:33) [8]
а для 0 и отрицательных чисел?
← →
TUser (2003-12-02 11:39) [10]
> намного проще ....
еще проще - родная паскалевская функция. Но если стоит задача написать что-нибудь помудренее - тогда, конечно [6].
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.12.12;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.011 c