forum.boolean.name - Разбиение числа на отдельные цифры

forum.boolean.name (http://forum.boolean.name/index.php)

- BlitzMax (http://forum.boolean.name/forumdisplay.php?f=104)

- - Разбиение числа на отдельные цифры (http://forum.boolean.name/showthread.php?t=5139)

Trilliput

27.11.2007 12:25

Разбиение числа на отдельные цифры

Нужен алгоритм разбиения числа на цифры, например 12345: разбить на 1, 2, 3, 4, 5.
Ну или просто подскажите команду для целочисленого диления.:@

dimanche13

27.11.2007 12:28

Re: Разбиение числа на отдельные цифры

переводишь число в строку и вперед!

Код:

Local a:Int = 12345



Local s:String



s = String(a)



Print Chr(s[0])

Print Chr(s[1])

Print Chr(s[2])

Print Chr(s[3])

Print Chr(s[4])

IGR	27.11.2007 18:14

Re: Разбиение числа на отдельные цифры

а лучше
for i=0 to leght(your_string)
print chr
next

Tadeus

27.11.2007 23:26

Re: Разбиение числа на отдельные цифры

Я помню недавно решал эту задачку чистой математикой :)

Код:

num=123456

i6=num Mod 10

i5=((num-i6)/10) Mod 10

i4=((num-i6-i5*10)/100) Mod 10

i3=((num-i6-i5*10-i4*100)/1000) Mod 10

i2=((num-i6-i5*10-i4*100-i3*1000)/10000) Mod 10

i1=((num-i6-i5*10-i4*100-i3*1000-i2*10000)/100000) Mod 10

Print i6

Print i5

Print i4

Print i3

Print i2

Print i1

WaitKey

Разбирает шестизначное число. По аналогии можно сделать функцию ;)

Также для увеличения скорости юзай смещения :)

Trilliput

29.11.2007 22:09

Re: Разбиение числа на отдельные цифры

Цитата:

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

переводишь число в строку и вперед!

:ok:

Часовой пояс GMT +4, время: 19:04.