Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > Вычленить все цифры в числе


Автор: POP 4.10.2006, 16:54
Есть некий алгоритм трансформации числа, напримре двухзначное число представим в виде двух цифр D1 и D2, например если число 05, то D1 = 0, D2 = 5

Прчем если одна из цифр равна нулю, то ее заменяем на 10 и далее считаем по формуле:

10* D1 + D2 , результат для 05 будет равен 10 * 10 + 5 = 105.

Так вот задача, как на Delphi сделать обратное преобразование, то есть из 105 сделать 05, и вывести эти две цифры 0 и 5 на экран?

Это для двухзначного, а вообще для любой значности как это сделать?

Например для 3-x значного формула будет такая 100*D1 + 10*D2 + D3 , причем если в числе есть ноль, то его заменяем на 10.

Для 32045  будет 10000*3 + 1000*2 + 100*10 (0 приняли за 10) + 10*4 + 5  = 33045  , а теперь нужно из 33045 получить по цифренно '3' '2'  '0' '4' '5' 

Автор: Rodman 4.10.2006, 17:07
К примеру у тебя цыфра вводится в эдит

Код

var numbers, res:string;
     D1:array [1..100] of integer;
    I:integer;
begin
 numbers:=edit1.text;
 for i:=1 to Length(Edit1.text) do
  begin
   if(numbers[i] in [0..9])then
     if(numbers[i]=0)then
        D1[i]:=10
      else 
        D1[i]:=StrToStr(numbers[i])
     res:=res+IntToStr(D1[i])+' разрядность посчитай  '
  end;
end;

Автор: POP 4.10.2006, 17:40
Цитата(Rodman @ 4.10.2006,  17:07)
К примеру у тебя цыфра вводится в эдит

Код

var numbers, res:string;
     D1:array [1..100] of integer;
    I:integer;
begin
 numbers:=edit1.text;
 for i:=1 to Length(Edit1.text) do
  begin
   if(numbers[i] in [0..9])then
     if(numbers[i]=0)then
        D1[i]:=10
      else 
        D1[i]:=StrToStr(numbers[i])
     res:=res+IntToStr(D1[i])+' разрядность посчитай  '
  end;
end;

Ты похоже ничего не понял, во первых не String,  а Integer, вот вторых  возьмем число 90 , после преобразования получается 9*10 + 10 = 100 , переведи его при помощи твоей фунции в 90 обратно... то-то.

Автор: HellanD 4.10.2006, 17:50
Извините а обязательно в Делфи просто точно знаю как такое сделать в С
там есть операция взятия остатка от деления... 

Автор: POP 4.10.2006, 18:04
Цитата(HellanD @ 4.10.2006,  17:50)
Извините а обязательно в Делфи просто точно знаю как такое сделать в С
там есть операция взятия остатка от деления...

В Delphi тоже есть остаток от деления, функция mod , напримре 9 mod 4 равно 1 , то есть остаток от деления.

Автор: Albinos_x 4.10.2006, 19:06
ничего не понятно из вопроса... например:

Цитата(POP @  4.10.2006,  16:54 Найти цитируемый пост)
 если одна из цифр равна нулю, то ее заменяем на 10

Цитата(POP @  4.10.2006,  16:54 Найти цитируемый пост)
результат для 05 будет равен 10 * 10 + 5 = 105

и вот не понятно, как это сочетается с:
Цитата(POP @  4.10.2006,  16:54 Найти цитируемый пост)
нужно из 33045 получить по цифренно '3' '2'  '0' '4' '5' 

почему на второй позиции получилось 2, а не 3 ?
если смотреть цытату выше, то почему на третьей позиции вместо 10 получился нуль?

если смотреть примен по последнему варианту с учётом, что по идее должно получиться: '3' '3'  '0' '4' '5 (из того как я понял задачу)
Код

type
  TMByte = array of Byte;


procedure WordToMByte(X:Word; var MByte:TMByte);
var i:byte;
    MByte_temp:array of Byte;
begin
SetLength(MByte_temp,0);
repeat
   i:=Length(MByte_temp);
   SetLength(MByte_temp,i+1);
   MByte_temp[i]:=X mod 10;
   X:=X div 10;
   until X=0;
SetLength(MByte,Length(MByte_temp));
for i:=0 to Length(MByte_temp)-1 do
    MByte[i]:=MByte_temp[Length(MByte_temp)-i-1];
SetLength(MByte_temp,0);
end;


это получим массив байт... если в конце нужно получить массив символов, то проще использовать Inttostr(Х)...

Автор: POP 4.10.2006, 19:13
Цитата(Albinos_x @  4.10.2006,  19:06 Найти цитируемый пост)
почему на второй позиции получилось 2, а не 3 ?


Нужно сделать обратное!! преобразование.

Число трансформируется так: Например для 32045 будет  10000*3 + 1000*2 + 100*10 (0 приняли за 10) + 10*4 + 5  = 33045.

То есть на входе мы видеи 33045, наша задача преобразовать его в 32045, тк нам известна формула по которой 32045 трансформируется в 33045, понимаешь?

Автор: Albinos_x 4.10.2006, 19:29
т.е. нам надо
33045->32045

f j,hfnyj ye;yj&

Добавлено @ 19:30 
т.е. а обратно нужно?

Автор: POP 4.10.2006, 19:39
Цитата(Albinos_x @  4.10.2006,  19:29 Найти цитируемый пост)
т.е. нам надо
33045->32045


Да.


Цитата(Albinos_x @  4.10.2006,  19:29 Найти цитируемый пост)
т.е. а обратно нужно?


Вот 33045 -> 32045 это и есть обратное.

А прямое никаких проблем не представляет, сам подумай что сложного сделать для 32045 такое преобразование - 10000*3 + 1000*2 + 100*10 (0 приняли за 10) + 10*4 + 5  = 33045 

Автор: Albinos_x 4.10.2006, 19:52
Цитата(POP @  4.10.2006,  19:39 Найти цитируемый пост)
А прямое никаких проблем не представляет

да и туда и обратно непредставляет...:
Код

// flag := True  -  32045->33045
// flag := False -  33045->32045
function WordToMByte(X:Word; flag: boolean):Integer;
var i: Integer;
    C: Integer;
begin
i:=1;
Result:=0;
repeat
   C:=X mod 10;
   X:=X div 10;
   if C=0 then
      if flag then C:=10 else C:=-10;
   Result:=C*I+Result;
   I:=I*10;
   until X=0;
end;

Автор: POP 4.10.2006, 20:09
Цитата(Albinos_x @ 4.10.2006,  19:52)
Цитата(POP @  4.10.2006,  19:39 Найти цитируемый пост)
А прямое никаких проблем не представляет

да и туда и обратно непредставляет...:
Код

// flag := True  -  32045->33045
// flag := False -  33045->32045
function WordToMByte(X:Word; flag: boolean):Integer;
var i: Integer;
    C: Integer;
begin
i:=1;
Result:=0;
repeat
   C:=X mod 10;
   X:=X div 10;
   if C=0 then
      if flag then C:=10 else C:=-10;
   Result:=C*I+Result;
   I:=I*10;
   until X=0;
end;

А вот теперь берем и проверяем твою функци:

Число 100 должно преобразоваться в 90, твой ф-я выдает -10
Число 110 должно преобразоваться в 00, твоя ф-я выдает 100
Число 500 должно преобразоваться в 490, твоя ф-я выдает 390

Так что не все тут так просто.

Автор: Albinos_x 4.10.2006, 20:52
....хм.....

Цитата(POP @  4.10.2006,  20:09 Найти цитируемый пост)
Число 100 должно преобразоваться в 90

т.е. если идут несколько нулей подряд, то заменяется только младший разряд...?
Цитата(POP @  4.10.2006,  20:09 Найти цитируемый пост)
Число 110 должно преобразоваться в 00

почему 00??? отнимается только 1 разряд во втором положении???

Автор: POP 4.10.2006, 20:59
Цитата(Albinos_x @  4.10.2006,  20:52 Найти цитируемый пост)
т.е. если идут несколько нулей подряд, то заменяется только младший разряд...?


Я же формулу писал, сам переведи и увидишь, 90 = 10*9 + 10 = 100 , обратно в 90 твоей функцией не запаковывается

Добавлено @ 21:01 
Цитата(Albinos_x @  4.10.2006,  20:52 Найти цитируемый пост)
т.е. если идут несколько нулей подряд, то заменяется только младший разряд...?


Я же формулу писал, сам переведи и увидишь, 90 = 10*9 + 10 = 100 , обратно в 90 твоей функцией не запаковывается

Автор: Albinos_x 4.10.2006, 21:06
я наверно, только что догнал вопрос....
Он, наверно, В том что тебе нужен алгоритм обратного преобразования?...

Автор: POP 4.10.2006, 21:20
Цитата(Albinos_x @ 4.10.2006,  21:06)
я наверно, только что догнал вопрос....
Он, наверно, В том что тебе нужен алгоритм обратного преобразования?...

Да!! smile)

Сам подумай в чем проблема преобразовать например 3-значное число по формуле 100*D1 + 10*D2 + D3 , причем заменяя 0 если он есть в числе на 10.

Проблема именно в обратном преобразовании.

Автор: Zero 4.10.2006, 22:13
Тут всё просто:
Код

procedure TForm1.Button1Click(Sender: TObject);
var
  s,b,res,p:string;
  i:integer;
begin
  s:= edit1.Text;
  i:=length(s);

  repeat
    b := s[i];
    if b <> '0' then res := b + res
    else
      begin
        res := '0' + res;
        p:='';
        repeat
          i:=i-1;
          b := s[i];
          if b = '0' then p:=p+'0';
        until b <> '0';
        b := b+p;
        if (length(b) = 1) and (b='1') and (i=1) then b := b + '0';
        res := IntToStr(StrToInt(b)-1) + res;
      end;
    i:=i-1;
  until i<=0;
  ShowMessage(res);
end;

Автор: Albinos_x 4.10.2006, 22:29
попробуй это:
Код

// flag := True  -  32045->33045
// flag := False -  33045->32045
function XToX(X:String; flag: boolean):String;
var i: Integer;
    Len:Integer;
    B, B1:Boolean;
    C, N:Integer;
begin
Len:=Length(X);
Result:='';
B:=False;
B1:=False;
C:=0;
N:=1;
if Flag then
   begin
   For i:=Len downto 1 do
      begin
      if X[i]='0' then
         C:=C+10*N
         else
         C:=C+(StrToInt(X[i])*N);
      N:=N*10;
      end;
   Result:=IntToStr(C);
   end
   else
   begin
   For i:=Len downto 1 do
      begin
      if B1 then
         begin
         if i<>1 then
            B1:=False;
         if X[i]<>'0' then
            X[i]:=IntToStr(StrToInt(X[i])-1)[1]
            else
            begin
            X[i]:='9';
            B1:=true;
            end;
         end;
      if B then
         begin
         if X[i]<>'0' then
            X[i]:=IntToStr(StrToInt(X[i])-1)[1]
            else
            begin
            X[i]:='9';
            B1:=true;
            end;
         B:=false;
         end;
      if X[i]='0' then
         begin
         B:=True;
         end;
      if (i=1) then
         if Len>2 then
            if B and ((X[2]='0') or B1) then  Exit;
      Result:=X[i]+Result;
      end;
   end;
end;


использование:
Код

procedure TForm1.Button1Click(Sender: TObject);
Var X:Integer;
begin
Edit2.Text:=XToX(Edit1.Text,True);
end;

procedure TForm1.Button2Click(Sender: TObject);
Var X:Integer;
begin
Edit2.Text:=XToX(Edit1.Text,False);
end;


Добавлено @ 22:32 
Zero,
Цитата(Zero @  4.10.2006,  22:13 Найти цитируемый пост)
Тут всё просто:

 на 110 не верный результат выдаёт...

Автор: Zero 4.10.2006, 22:46
Цитата(Albinos_x @  4.10.2006,  23:29 Найти цитируемый пост)
на 110 не верный результат выдаёт...

Проверять вообще надо руками.

Хотя, если старший разряд 10 то резултат немного не тот, но вот так всё отлично:
Код

procedure TForm1.Button1Click(Sender: TObject);
var
  s,b,res,p:string;
  i:integer;
begin
  s:= edit1.Text;
  i:=length(s);

  repeat
    b := s[i];
    if b <> '0' then res := b + res
    else
      begin
        res := '0' + res;
        if i=2 then
          if s[1]='1' then break;
        p:='';
        repeat
          i:=i-1;
          b := s[i];
          if b = '0' then p:=p+'0';
        until b <> '0';
        b := b+p;
        if (length(b) = 1) and (b='1') and (i=1) then b := b + '0';
        res := IntToStr(StrToInt(b)-1) + res;
      end;
    i:=i-1;
  until i<=0;
  ShowMessage(res);
end;


Добавлено @ 22:52 
Стоп, извиняюсь... 100 это не верный резултат. smile 

Автор: Albinos_x 4.10.2006, 23:03
Цитата(Zero @  4.10.2006,  22:46 Найти цитируемый пост)
Стоп, извиняюсь... 100 это не верный резултат.

 smile 
ладно.. чего-то мы здесь намудрили.... при обратно преобразовании исходное число не может начинаться с нуля... следовательно можно обойтись без многоуровневых символьных проверок.... щас попробую сократить код...

Добавлено @ 23:10 
Попробую вернуться к первоначальному варианту.... его немного подработать...

Автор: Albinos_x 4.10.2006, 23:25
изменил немного подход к делу... соединил 2 предложенных алгоритма мной до этого, плюс немного один переработал, с учётом, что при кодировании могут поступить значения с нулями, а при раскодировании такого не должно быть... тем самым немного сократил код:
Код

// flag := True  -  32045->33045
// flag := False -  33045->32045
function XToX(X:String; flag: boolean):String;
var i: Integer;
    Len:Integer;
    C, N:Integer;
begin
Result:='';
if Flag then
   begin
   Len:=Length(X);
   C:=0;
   N:=1;
   For i:=Len downto 1 do
      begin
      if X[i]='0' then
         C:=C+10*N
         else
         C:=C+(StrToInt(X[i])*N);
      N:=N*10;
      end;
   Result:=IntToStr(C);
   end
   else
   begin
   C:=StrToInt(X);
   Repeat
      N:=C mod 10;
      C:=C div 10;
      if N=0 then C:=C-1;
      Result:=IntToStr(N)+Result;
     until C=0;
   end;
end;


в общем сокращение произошло только из-за того, что анализировал и изменял не символы, а цифры...

Автор: POP 5.10.2006, 01:55
Цитата(Albinos_x @ 4.10.2006,  23:25)
изменил немного подход к делу... соединил 2 предложенных алгоритма мной до этого, плюс немного один переработал, с учётом, что при кодировании могут поступить значения с нулями, а при раскодировании такого не должно быть... тем самым немного сократил код:
Код

// flag := True  -  32045->33045
// flag := False -  33045->32045
function XToX(X:String; flag: boolean):String;
var i: Integer;
    Len:Integer;
    C, N:Integer;
begin
Result:='';
if Flag then
   begin
   Len:=Length(X);
   C:=0;
   N:=1;
   For i:=Len downto 1 do
      begin
      if X[i]='0' then
         C:=C+10*N
         else
         C:=C+(StrToInt(X[i])*N);
      N:=N*10;
      end;
   Result:=IntToStr(C);
   end
   else
   begin
   C:=StrToInt(X);
   Repeat
      N:=C mod 10;
      C:=C div 10;
      if N=0 then C:=C-1;
      Result:=IntToStr(N)+Result;
     until C=0;
   end;
end;


в общем сокращение произошло только из-за того, что анализировал и изменял не символы, а цифры...

А на самом деле обратное преобразование вот в таком маленьком коде:

---
repeat
c:=a mod 10;
s:=inttostr©+s;
if c=0 then a:=a-10;
a:=a div 10;
until a=0;
---

Добрые люди подсказали... целый день седня копал  smile 

Автор: Albinos_x 5.10.2006, 03:17
Цитата(POP @  5.10.2006,  01:55 Найти цитируемый пост)
А на самом деле обратное преобразование вот в таком маленьком коде:

сравнивал с моим на обратное:

Цитата(Albinos_x @  4.10.2006,  23:25 Найти цитируемый пост)
   C:=StrToInt(X);    
   Repeat    
      N:=C mod 10;    
      C:=C div 10;    
      if N=0 then C:=C-1;    
      Result:=IntToStr(N)+Result;    
     until C=0;    
   end;

за то, моя ф-я считает и туда и обратно...

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)