Форум: "Основная";
Текущий архив: 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.007 c