[ApplicatiOn]

Помогите описать функцию перевода из строки в число, не используя стандартные ( strtoint() ). Заранее спасибо!

[lmikle]

Элементарно, Ватсон.
Идем с конца строки посимвольно и складываем ([код символа] - [код '1']) * [номер символа с конца строки].

[KOOL]

немного не так...даже совсем не так. а вот так правильно:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

function StringToInt(s:string):integer; var i, r:integer; begin r:=0; for i:=Length(s) downto 1 do   begin     if (s[i] in ['0'..'9'])then       r:=r+ (Ord(s[i])-Ord('0'))*Round( Exp( (Length(s)-i)*Ln(10) ) )     else       begin //в строке не число         r:=0;         break;       end;   end; Result:=r; end;

а если так как сказал lmikle то строка 33 например станет числом 6

[ApplicatiOn]

может я чтото не так делаю по сетоду Imikle или не понял.. (спс за нижеприведенный код)

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

function sti(str: string): int64; var i: integer; f: int64;   begin f:=0;   for i:= Length(str) downto 0 do  f:= f + (ord(str[i])-ord('1'))*(Length(str)+1);   result := f; end;

[Karsh]

А у меня такая штука получилась...

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

function XPower(const x, y: Integer): Integer; var   i: Integer; begin   Result:= x;   i:= 1;   while i < y do   begin     Result:= Result * x;     Inc(i);   end; end;   function sti(s: string): int64; var   i, j, l, x: integer;   f, y: int64; begin   f:= 0; j:= 0;   x:= Ord('0');   l:= Length(s);   for i:= l downto 1 do   begin     y:= (Ord(s[i]) - x);     if j > 0 then y:= y * XPower(10, j);     Inc(f, y);     Inc(j);   end;   Result:= f; end;

З.Ы. А чем вас функция Val не устраивает?

[KOOL]

мой код правильный. любое число длиной в n разрядов в q-ричной системе счисления определяется как
An*q^(n-1) + A(n-1)*q^(n-2) + ... + A2*q^1 + A1*q^0 , где An-цифра, стоящая в n-ном разряде.

насчет твоего кода:

Код:

1	for i:= Length(str) downto 0 do

до 1 а не до 0

Код:

1	f:= f + (ord(str[i])-ord('1'))*(Length(str)+1);

ord(str[i])-ord('1')=нужная цифра-1. значит, если стоит ноль, то он станет -1, а 1 станет нулем.
Length(str)+1 - эт вообще не то, что надо.
если по этому коду перевести строку, то получится:

строка='135';
5: 4*4=16
+
3: 2*4=8
+
1: 0*4=0
24

то есть код совсем неправильный

2Karsh: избыточности много. такие вещи, как Ord('<символ>'), являются константами. значение length(s) используется 1 раз, присваивать значение функции, используемой меньше 2 раз, переменной - это дурной тон. а математические функции типа возведения в степень пишут на языке ассемблера. а функция val может препода не устраивать.

[s0Creator]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

function sti(s: string): int64; var   i, x : integer; begin   Result := 0;   s := Trim(s);   x := Ord('0');   for i := 1 to Length(s) do   begin     if not (s[i] in ['0'..'9'])then     begin       Result := 0;       exit;     end;     Result := (Result * 10) + (Ord(s[i]) - x);   end; end;

[ApplicatiOn]

Сообщение от Karsh

З.Ы. А чем вас функция Val не устраивает?

тем что мне надо это использовать на pascal'е, а там подобных функций нет.. в математике я не силен, так что строчка

Код:

1	r:=r+ (Ord(s[i])-Ord('0'))*Round( Exp( (Length(s)-i)*Ln(10) ) )

остается для меня загадочной и главное - рабочей.. (особенно этот момент: Exp((Length(s)-i)*Ln(10))) )

[KOOL]

Как это нет??? там есть процедуры Val и Str.
Exp((Length(s)-i)*Ln(10)) это e^[ln(10)^(номер разряда-1)], т.е. 10^(номер разряда-1). В паскале как раз функции Power нет и нужно использовать искусственный прием. а лучше как s0Creator написал (опять я забыл про накопление )