Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Прочее";
Текущий архив: 2007.10.14;
Скачать: [xml.tar.bz2];

Вниз

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

Форум: "Прочее";
Текущий архив: 2007.10.14;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.035 c
2-1189995274
__саша__
2007-09-17 06:14
2007.10.14
Подскажите пожалуйста как регулировать громкость ?


2-1189758230
shmelina
2007-09-14 12:23
2007.10.14
Показ формы-оповещения без фокуса


1-1186038494
DevilDevil
2007-08-02 11:08
2007.10.14
Указатель на виртуальную функцию. Помогите.


15-1189569624
Slider007
2007-09-12 08:00
2007.10.14
С днем рождения ! 12 сентября 2007 среда


3-1180078722
DelphiLexx
2007-05-25 11:38
2007.10.14
FIBDataSet.RollBack





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский