Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 2 950

/ вопрос открыт /

Приветствую, уважаемые эксперты!
Подскажите, есть число (Integer) 123456789, как мне обратиться к каждому знаку не переводя Integer в String?

Вадим1979 Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Вадим1979 (статус: Посетитель)
Вопрос отправлен: 26 июня 2009, 03:03
Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Мережников Андрей

Здравствуйте, Вадим-1224!
На мой взгляд с преобразованием было бы проще. Но надо, так надо. Смотрите пример в приложении (это всего лишь один из вариантов)
В массиве будет разложенное на разряды число в следующем порядке: первый элемент - первый разряд, второй элемент- второй разряд и т.д.
Пример рассчитан на 10-значное число. В переменной i - количество разрядов числа.

Приложение:
  1. var numb:array [1..10] of integer;
  2. i,a:integer;
  3. i:=0;
  4.  
  5. numb[0]:=0;
  6. repeat
  7. inc(i);
  8. numb[i]:=a mod 10;
  9. a:=a div 10;
  10. until a=0;
  11.  


Ответ отправил: Мережников Андрей (статус: Абитуриент)
Время отправки: 26 июня 2009, 05:49
Оценка за ответ: 5


Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 февраля 2025, 11:25
Выполнено за 0.02 сек.