Вниз
Скачать: CL | DM;

Как вычислить длину 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]

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


← →
Инс ©   (2007-09-15 23:00) [11]

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


← →
Anatoly Podgoretsky ©   (2007-09-15 23:05) [12]

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

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


← →
boa_kaa ©   (2007-09-16 09:03) [13]

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



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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.016 c
15-1189598524
Кадровик
2007-09-12 16:02
2007.10.14
Подсчет выходных, предвыходных, праздничных ипредпраздничных дней


15-1189695922
PIG
2007-09-13 19:05
2007.10.14
Компонент избавление VCL


2-1189703960
delphiForever
2007-09-13 21:19
2007.10.14
таймер и процедура


2-1190208082
ANTPro
2007-09-19 17:21
2007.10.14
Как обновить окно...


2-1190198322
Василий
2007-09-19 14:38
2007.10.14
Как изменить внешний вид




   Наверх