Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.01.28;
Скачать: [xml.tar.bz2];

Вниз

разобрать число   Найти похожие ветки 

 
anton773 ©   (2007-01-07 22:18) [0]

Вопрос на засыпку: Есть число например "4563" как его разобрать на числа например "4"  "5"  "6"  "7" Единственное что приходить на ум это  преобразовать число в строку и уже строку разобрать на запчасти. Может есть более изящьный вариант


 
try   (2007-01-07 22:38) [1]

Этим вопросом можно засыпать первоклассника. А вот пятиклассника вряд ли - он знает десятичную систему счисления.


 
anton773 ©   (2007-01-07 22:50) [2]


> Этим вопросом можно засыпать первоклассника. А вот пятиклассника
> вряд ли - он знает десятичную систему счисления.

вопрос не правильно понят Мне нужны отдельные цыфры из этого числа,а не разложить его на множители


 
Степан   (2007-01-07 22:50) [3]

Да делить число на 10, потом умножать на 10 и вычислять разницу


 
имя   (2007-01-07 22:51) [4]

Удалено модератором


 
Anatoly Podgoretsky ©   (2007-01-07 22:54) [5]

> anton773  (07.01.2007 22:50:02)  [2]

Ну сказали же, что задача для первого, максимум второго класса, в том числе тем решением, что ты привел.


 
Anatoly Podgoretsky ©   (2007-01-07 22:55) [6]

> Степан  (07.01.2007 22:50:03)  [3]

Количество вариантов займет не одну страницу.


 
anton773 ©   (2007-01-07 22:59) [7]


> Да делить число на 10, потом умножать на 10 и вычислять
> разницу

Тогда уж проще преобразовать число в строку выдернуть каждый символ и уже каждый символ обратно преобразовать в число например StrToINT()


 
anton773 ©   (2007-01-07 23:04) [8]


> в том числе тем решением, что ты привел.

Так я и хотел узнать более элегантное решение


 
LapGod   (2007-01-07 23:25) [9]

Более "элегантное" решение это делить с остатком на 10. Вот примерный план :

//a - исходное число
m := a;
while m > 0 do
begin
k := m mod 10;//очередная цифра
m := m div 10;
end;

Все цифры будут идти с конца.


 
LapGod   (2007-01-07 23:30) [10]

Более "элегантное" решение это делить с остатком на 10. Вот примерный план :

//a - исходное число
m := a;
while m > 0 do
begin
k := m mod 10;//очередная цифра
m := m div 10;
end;

Все цифры будут идти с конца.


 
LapGod   (2007-01-07 23:30) [11]

Более "элегантное" решение это делить с остатком на 10. Вот примерный план :

//a - исходное число
m := a;
while m > 0 do
begin
k := m mod 10;//очередная цифра
m := m div 10;
end;

Все цифры будут идти с конца.


 
LapGod   (2007-01-07 23:32) [12]

Извиняюсь. Больше никогда не буду нажимать кнопку "обновить".


 
ors_archangel ©   (2007-01-07 23:48) [13]


> Извиняюсь. Больше никогда не буду нажимать кнопку "обновить".

Не ты должен извиняться, а разработчики сайта должны перед тобой извиниться, а лучше сайт исправить... а! бесполезно :(


 
sniknik ©   (2007-01-08 00:40) [14]

> а лучше сайт исправить...
это интересно как? разрыв между постами(9-10) 5мин, это что запретить второй раз с IP постить меньше чем через 10? а найдется такой что и так умудрится "обновить" то на полчаса добавить?

в обновлении всегда вторая посылка идет, браузер даже предупреждает, если нажал подтверждение значит хотел, и нечего ограничители навешивать, любые, потому, что то, что одних ограничивает другим (причем основной массе) работать мешает.


 
anton773 ©   (2007-01-08 08:12) [15]

To LapGod Спасибо!



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.01.28;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.046 c
15-1167722573
legat
2007-01-02 10:22
2007.01.28
Возврат кода ошибки


2-1168253291
Opilki_Inside
2007-01-08 13:48
2007.01.28
Вопрос по ООП


2-1168376640
Lamer666
2007-01-10 00:04
2007.01.28
DBGridEh1.SelectedRows


2-1168416384
Rentgen
2007-01-10 11:06
2007.01.28
как из TDateTime вычесть к примеру 5 минут?


3-1162584149
_Ламер_
2006-11-03 23:02
2007.01.28
IBX и юникод





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский