| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вычленить все цифры в числе
POP © (2006-10-04 17:32:00)Есть некий алгоритм трансформации числа, напримре двухзначное число представим в виде двух цифр 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.
POP (2006-10-04 17:52:00) [21]Считаем по формуле:
10000*3 + 1000*2 + 100*10 (0 приняли за 10) + 10*4 + 5 = 33045
umbra (2006-10-04 17:44:00) [22]уточните, если есть, допустим число 32045, то какое число должно получиться после преобразования
| |
Страницы: 