Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.01.28;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.5 MB
Время: 0.04 c
15-1168029800
ZiTRaX
2007-01-05 23:43
2007.01.28
Просто под впечатлением от прочитанного...


15-1168176514
Ringo
2007-01-07 16:28
2007.01.28
Меня тут друг позвал помочь, мышь тормозит.


2-1168676948
_Dima
2007-01-13 11:29
2007.01.28
(Fatal error) Project 1.dpr(1): Unit not found: System.pas


2-1168534891
-John-Doe-
2007-01-11 20:01
2007.01.28
Работа с реестром Windows


15-1167925331
ProgRAMmer Dimonych
2007-01-04 18:42
2007.01.28
Областная олимпиада