Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Алгоритмы _ Алгоритм подсчёта количества цифр

Автор: Диона 2.09.2007 18:41

Подскажите алгоритм подсчёта количества цифр целого числа. Никак не получается разобраться. blink.gif

Автор: volvo 2.09.2007 19:13

Целочисленное деление на 10 (и подсчет количества делений) до тех пор, пока делимое не станет равно 0.

Автор: Valery 31.10.2007 17:52

В другой теме встречался и такой вариант:
преобразуешь число в текстовую строку и узнаешь ее длину стандартной функцией.

Автор: andriano 2.12.2007 2:54

Вариант с делением неверен: на числе 1000 он даст 1 цифру вместо 4.
Вывод: раз речь идет о десятичном представлении, то именно в таком редставлении и надо делать, т.е. единственный разумный вариант - преобразование в строку.

Автор: Lapp 2.12.2007 3:02

Цитата(andriano @ 1.12.2007 22:54) *

Вариант с делением неверен: на числе 1000 он даст 1 цифру вместо 4.

blink.gif ?????????????
Будь добр, подтверди свои слова программным кодом.

Автор: volvo 2.12.2007 3:07

С 1000 все будет в порядке, насколько я понимаю, а вот как правильно заметил andriano (не здесь, на другом форуме) - при 0 будет-таки сбой...

Автор: Lapp 2.12.2007 3:07

Определение количества цифр через строку - это обман.. Просто тем самым работа перекладывается на готовые паскалевские процедуры (которые работают, скорее всего, именно делением). И если будет задача определения количества цифр в другой системе отсчета, то этот метод просто не работает.

Добавлено через 2 мин.
Какой сбой?..

n:= 0;
i:= 0;
repeat
n:= n div 10;
Inc(i)
until n=0;


Автор: len4ik 2.12.2007 4:44

а вот такой код, как вам ( я правда в паскале не очеь, тока изучаю);

program o;
var a,b,i:integer;
begin

read(a);
i:=0;
while a>0 do
begin
a:=a div 10;
i:=i+1;
end;
write(i)
end.

Автор: andriano 2.12.2007 12:12

Цитата(Lapp @ 1.12.2007 23:02) *

blink.gif ?????????????
Будь добр, подтверди свои слова программным кодом.

Прошу прошения, тут у меня произошел какой-то сбой.

Тем не менее, родолжаю утверждать, что именн способ через преобразование в строку и является единственно правильным.

В принципе можно оценить плюсы и минусы таких способов.

Плюсы "строки":
- делает именно то, что нужно. Т.е. запись соответствует условию задачи.
- текст короче. Соответственно, легче написание, отладка и сопровождение.
- не требует доказательства того, что "арифметический" вариант эквивалениен "переводу в строку". И, думаю, именно это является ОСНОВНЫМ преимуществом данного метода. Строгое математическое доказательство получится довольно объемным, причем его прийдется сначала провести разработчику, а затем КАЖДЫЙ РАЗ при смене того, кто будет осуществлять сопровождение кода.

Плюсы "арифметического" варианта:
- вычислительно менее ресурсоемок.
- легко обобщается на любую систему счисления.

В принципе у "арифметического" способа есть ОЧЕНЬ существенный недостаток - к нему неприменим один из основнях принципов ПРАВИЛЬНОГО программирования: "неправильный код должен выглядеть неправильно".

PS. Да, самое серьезное замечание против "строки" - трудность обобщения на случай другого основания. Правильный путь при этом окажется более ресурсоемким, чем в противном случае:
1. Написание процедуры перевода числа в строку в нужной (или произвольной) системе счисления.
2. Воспользоваться этой процедурой.
Примечание: отладку обеих частей производить, естественно, независимо.

PPS. Насчет "перекладывания на "готовые паскалевсекие процедуры":
Если мы в 16-разрядном BP делим longint на longint, неужели мы обязаны вместо оператора деления явно программировать целиком весь алгоритм деления в столбик?