Как вычислить длину N!

← →
Wfee (2007-09-15 17:16) [0]

То есть подсчитать кол-во цифр в n! Слышал что с помощью формулы стирлинга. Я пробовал - не получилось.
Помогите, пожалуйста!
Заранее благодарен!

← →
Cj © (2007-09-15 17:33) [1]

length(n) :-)

← →
boa_kaa © (2007-09-15 17:37) [2]

Если N целое положительное, то первое, что приходит в голову:

var i, j: Integer; begin i := 1900; j := 1; while i <> 0 do begin i := i shr 4; Inc(j); // здесь число end;

← →
DrPass © (2007-09-15 18:17) [3]

> Если N целое положительное, то первое, что приходит в голову

Если N целое положительное, а посчитать цифры надо в 16-ричной системе, то первое, что приходит в голову

← →
boa_kaa © (2007-09-15 20:48) [4]

упс, пардон... :) суббота все-таки... :)
Тогда mod + div в руки

← →
Юрий Зотов © (2007-09-15 22:38) [5]

Для целых - Length(IntToStr(Abs(n)))

← →
Инс © (2007-09-15 22:44) [6]

> То есть подсчитать кол-во цифр в n!

А это "Эн" или "Эн-факториал"?

← →
Kerk © (2007-09-15 22:45) [7]

Логарифм нужен

← →
Инс © (2007-09-15 22:50) [8]

Судя по всему - факториал:
http://ru.wikipedia.org/wiki/Формула_Стирлинга

← →
Kerk © (2007-09-15 22:51) [9]

Елки.. я подумал, что там ! - это просто знак препинания :))

← →
Wfee (2007-09-15 22:54) [10]

Да это факториал!!!

Ну, если N! не превысит 4 байта, то можно просто вычислить всевозможные N! для чисел, удовлетворяющих этому условию (их не так уж и много), и внести в таблицу, а потом по ней и смотреть.

> Kerk (15.09.2007 22:45:07) [7]

Обойдись логарифмической линейкой :-)

Ну, самое время мне опять воскликнуть: упс, пордон :)

Как вычислить длину N! Найти похожие ветки