Разложить слово!

[mifka72]

Всем привет. Цель такая: нужно переменную (будь то int либо str) разложить по знакам.
Пример: если A=1234 тогда
a1=1; a2=2; a3=3; a4=4.

[Chudo4258]

какой язык???
какого пита ты вводишь переменную??

var S:???;
....
begin
readln(S);
....
end;

если S:srting то все просто:

for i:=1 to Length(S) do
 a[i]:=S[i];

[Google2010]

ну а если s integer;

k:=0;
while s<>0 do
begin
inc(k);
a[k]:=s mod 10;
s:=s div 10;
end;

[mifka72]

пишу на дельфи, конкректно нужно для integer, кол-во знаков постоянно 8 (двоичное число)

[Chudo4258]

ну тогда можешь это число переводить в строку ( S:=IntToStr(число) ) и делать так:

for i:=1 to Length(S) do
 a[i]:=S[i];

но в этом случае массив А будет типа Char, и надо будет обратно переводить в число (StrToInt)

либо сразу вот так:

k:=0;
while s<>0 do
begin
inc(k);
a[k]:=s mod 10;
s:=s div 10;
end;

[Google2010]

конкректно нужно для integer, кол-во знаков постоянно 8 (двоичное число)

а с чего это двоичное число да типом integer ?
и еще если воспользоваться кодом из поста 3
для того чтобы было a1:=1 a2:=2 a3:=3 a4:=4
надо
перевернуть массив

for i:=1 to k div 2 do
begin
a[i]:=a[i]+a[k-i+1];
a[k-i+1]:=a[i]-a[k-i+1];
a[i]:=a[i]-a[k-i+1];
end;

[mifka72]

var
s:integer;
begin
s:=10010110;
end;

вот от сюда, само число потом переводится в 10-чное и отсылается драйверу
в моём случае производится чтение с драйвера, перевожу в 2-ичную и нужно разложить на отдельные цифры

[mifka72]

увидел Div и вспомнил:

var
s,i,n:integer;
begin
s:=edit1.text;
for i:=1 to 8 do //где место 8 может быть Length(inttostr(s))
n:=s mod 10;
s:=s div 10;

showmessage(inttostr(n));//числа будут выводится в обратном порядке
end;                      //если в Edit'е было 123, то результат будет: 3, 2, 1

можно использовать как вариант, мб длинноват

[mifka72]

Всем спасибо, по этой теме вопросов больше нет