Вниз
Скачать: 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.024 c
2-1189659320
Washington
2007-09-13 08:55
2007.10.14
Демо версия


15-1189932164
исследователь
2007-09-16 12:42
2007.10.14
Работа с TAdoQuery


1-1185876024
Solo
2007-07-31 14:00
2007.10.14
А где модуль ShareMem в Delphi 2006?


2-1189763330
artem779
2007-09-14 13:48
2007.10.14
как изменить имя проекта ?


2-1190117780
Fligian
2007-09-18 16:16
2007.10.14
Добавление TImage на TMemo




   Наверх