[vers0]

Доброго времени суток.
Суть вопроса такова: Имеется переменная A0, которая равна, например, 63 (положительное, целое). Как разбить данное число на два 6 и 3 и присвоить их переменным A1 и A2?
Поиски привели к исходинкам на Паскале:

Код:

var
  s:string;
  a,t,i,sum:integer;
begin
  sum:=0;
  readln(a); {ввод числа}
  str(a,s);    {перевод из числа в строку}
  for i:=1 to length(s) do
   begin
     val(s[i],t,err);   {перевод i-того символа строки в число}
     sum:=sum+t;
   end;
  writeln(sum);
end.

Суть ясна, перевод в строчный. Но здесь идет сумма этих цифр, как занести именно в переменные? Да и на Делфи вроде как inttostr используется при переводе в строчное.

[lmikle]

Есть вараинты.
1. Через строку:

Код:

var
  A : Array Of Integer;
  S : String;
  C : Char;
  InNmb, I, L : Integer;
begin
  InNmb := 63;
  S :- IntToStr(InNmb);
  L := Length(S);
  // инвертрируем строку если нам нужен младший разряд в младшем элементе
  For I := 1 To (L div 2) Do
    Begin
      C := S[i];
      S[i] := S[L-I+1];
      S[L-I+1] := C;
    End;
  // Заполняем массив
  SetLength(A,L);
  For I := 1 To L Do
    A[I-1] := StrToInt(S[i]);
end;

2. Через деление

Код:

var
  A : Array Of Integer;
  InNmb : Integer;
begin
  InNmb := 63;
  SetLength(A,0);
  While InNmb > 0 Do
   Begin
     SetLength(A,Length(A)+1);
     A[High(A)] := InNmb mod 10;
     InNmb := InNmb div 10;
   End;

[vers0]

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

2. Через деление

Код:

var
  A : Array Of Integer;
  InNmb : Integer;
begin
  InNmb := 63;
  SetLength(A,0);
  While InNmb > 0 Do
   Begin
     SetLength(A,Length(A)+1);
     A[High(A)] := InNmb mod 10;
     InNmb := InNmb div 10;
   End;

Извините, может, будет глупый вопрос, но все же (мало знаком с данной темой):
После While InNmb > 0 Do идет деление и соответственно "выяснение" из каких цифр состоит InNmb, а вот как потом разнести эти цифры по переменным A1 и A2?
Или строка SetLength(A,Length(A)+1); как раз и заполняет A+1 и т.д.? но тогда в var почему они не обозначены?

[lmikle]

Это не строка, а массив. Т.к. заранее не известна длинна числа (кол-во разрядов), я использовал массив для сохранения результатов. Если ты уверен, что будети только 2 разряда, то после цикла можно записать так:

Код:

A1 := A[0];
A2 := A[1];

[vers0]

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

Это не строка, а массив. Т.к. заранее не известна длинна числа (кол-во разрядов), я использовал массив для сохранения результатов. Если ты уверен, что будети только 2 разряда, то после цикла можно записать так:

Код:

A1 := A[0];
A2 := A[1];

Да, количество разрядов будет известно. Спасибо за пример и помощ.

[vers0]

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

Это не строка, а массив. Т.к. заранее не известна длинна числа (кол-во разрядов), я использовал массив для сохранения результатов. Если ты уверен, что будети только 2 разряда, то после цикла можно записать так:

Код:

A1 := A[0];
A2 := A[1];

Если написать A1 := A[0];, то A1 присваивается сумма двух чисел из которых состоит значение InNmb. Т.е. InNmb=27, а A1=9, при этом A2=48827616

Как присвоить A1=2, а A2=7 ??

[lmikle]

У меня, вроде, все правильно работает.
Только надо инвертировать разряды.
Видимо ты пытаешься как-то добраться до массива неправильно, вот и получаешь какой-то мусор.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  A : Array Of Integer;
  InNmb : Integer;
  A1, A2 : Integer;
begin
  InNmb := 27;
  SetLength(A,0);
  While InNmb > 0 Do
    Begin
      SetLength(A,Length(A)+1);
      A[High(A)] := InNmb mod 10;
      InNmb := InNmb div 10;
    End;
  A1 := A[1];
  A2 := A[0];
  ShowMessage(Format('A1=%d, A2=%d',[A1,A2]));
end;

На выходе показывает 'A1=2 A2=7'.

[vers0]

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

У меня, вроде, все правильно работает.
Только надо инвертировать разряды.
Видимо ты пытаешься как-то добраться до массива неправильно, вот и получаешь какой-то мусор.
На выходе показывает 'A1=2 A2=7'.

Код тот же, единственное InNmb заменено на s1 и A1,A2 выводятся через Edit3.Text:=IntToStr(A1);

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
s1:=d1+m1+y1;

begin
  SetLength(A,0);
  While s1 > 0 Do
   Begin
     SetLength(A,Length(A)+1);
     A[High(A)] := s1 mod 10;
     s1 := s1 div 10;
   End;
A1 := A[0];
A2:=A[1];
Edit3.Text:=IntToStr(A1);
Edit4.Text:=IntToStr(A2);
end;
end;

Самое интересное, что сумма в А1 всегда верная, какие бы входные данные не передавались. A1, A2, S1 фигурируют только в этой процедуре, больше ни где.

[lmikle]

Значит что-то не так.
1. Сделай все переменные, включая массив A, локальным (если возможно).
2. Массив A должен быть именно динамическим (проверь его описание).
3. Проверь типы данных. В моем примере они все Integer.
4. Убедись, что никакой другой код "не встревает" во время вычисления (не сохраняет в эти переменные ничего).

Косяк явно у тебя, я проверил свой код и он работает абсолютно правильно.

[vers0]

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

Значит что-то не так.
Косяк явно у тебя, я проверил свой код и он работает абсолютно правильно.

Я понял, будем искать.

Действительно отдельно код работает корректно, а в моем коде выводит косяк.
1. Сделал локально все переменные (s1 глобально, но сделал локальную s0 (s0:=s1))
2. Массив Array Of Integer
3. Все переменные Integer, включая d1, m1, y1
4. Сначала идет строка s1:=d1+m1+y1; потом s0:=s1; потом массив. Больше эти переменные вообще нигде не встречаются на данный момент.

d1, m1, y1 принимают значения по case combobox1.ItemIndex of и т.д. Может здесь загвоздка?

P.S. даже после ввода промежуточных переменных ничего не поменялось...
d0:=StrToInt(d1);
m0:=StrToInt(m1);
y0:=StrToInt(y1);
s1:=d0+m0+y0;

[lmikle]

ok, попробуй сделать отдельной функцией и вызывай ее:

Код:

procedure SplitNumber(InNmb : Integer; var A1 : Integer; var A2 : Integer);
var
  A : Array Of Integer;
begin
  SetLength(A,0);
  While InNmb > 0 Do
    Begin
      SetLength(A,Length(A)+1);
      A[High(A)] := InNmb mod 10;
      InNmb := InNmb div 10;
    End;
  A1 := A[1];
  A2 := A[0];
end;

тогда у себя в коде делаешь примерно так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  s1:=d1+m1+y1;
  SplitNumber(s1,A1,A2);
  ShowMessage(Format('S1=%d, A1=%d, A2=%d',[S1,A1,A2]));
end;

Ну и пришли что там вывелось.

ЗЫ. Если правильно помню, то если нажать в сообщении Ctrl+C, то в буфер обмена скопируется текст сообщения.

[x128]

Что-то вы сильно увлеклись... vers0, если число всегда двузначное, то пляски вокруг массивов ненужны, lmikle предложил универсальное решение для любых чисел, тебе нужно просто взять результат целочисленного деления на 10 и остаток от деления.
27 div 10 = 2
27 mod 10 = 7

[lmikle]

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

Что-то вы сильно увлеклись... vers0, если число всегда двузначное, то пляски вокруг массивов ненужны, lmikle предложил универсальное решение для любых чисел, тебе нужно просто взять результат целочисленного деления на 10 и остаток от деления.
27 div 10 = 2
27 mod 10 = 7

Ну, в принципе, что-то в этом есть
Действительно, если число всегда двухзначное, то такое решение сработает вполне.

[vers0]

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

Ну и пришли что там вывелось.

ЗЫ. Если правильно помню, то если нажать в сообщении Ctrl+C, то в буфер обмена скопируется текст сообщения.

---------------------------
Project1
---------------------------
S1=9, A1=48958688, A2=9
---------------------------
OK
---------------------------

В итоге ничего не поменялось

---------------------------
Project1
---------------------------
d0=3, m0=1, y0=5, S1=9, A1=49941728, A2=9
---------------------------
OK
---------------------------

[lmikle]

Э, чувак. Ну вот же в сообщении все понятно. Никаких 27 у тебя на входе в разбиение нет. S1 у тебя равно 9, в обоих случаях. Тогда и понятно появление большого числа во второй переменной - там просто происходит выход за границу массива и читается просто какой-то случайный мусор. Если постаишь в опциях компилятора вкл соотв. проверку, на этом месте получишь исключение. Так что код работает правильно, просто кое-кто подсовывает данные, нарушающие входные условия, соответвенно, получаешь мусор на выходе.