f=1
If (value>1) Then
For i=2 To value
f=f*i
Next i
End

Кроме того, и этот вариант, и предыдущий, считают только факториал целых чисел...

Факториал единицы равен все-таки единице, а не нулю.

А вот тут я полный пас - я даже не представляю, как вычисляется факториал не целого числа...

Нет, дружок, никакой это не глюк.
Вас в школе до девятого или даже десятого класса учат,
что и корней из отрицательных чисел не бывает.
Однако это не так :)

Добавлено (Сегодня, 22:33)
---------------------------------------------
Из энциклопедических источников:

Факториал дробного числа - факториал вычисляемый от аргумента - ....
Вычисляется по формуле:

log(x!) = log([x]!) + {x}*log([x]+1).

где [x] — целая часть чиcла x, {x} — дробная часть числа x.
Например, для x = 11,2 будем иметь log(11,2!) = log(11!) + 0.2*log(12).

Вычисляемое таким способом значение факториала дробного числа является приближенным. Для точных расчетов необходимо использовать гамма-функцию.

Факториалы нецелых (дробных) чисел появляются при статистическом описании нейросетевых преобразователей биометрия/код ключа доступа биномиальным законом распределения зависмимых биометрических данных.

Верно подмечено!

А также бывает факториал нуля и он равняется единице. Да, натуральные числа, это числа вида 1,2,3,...,N. Но факториал 0!=1 - хоть убейся...

Вечная память Андрею Сергееву!

Не понял юмора :-(

f=1
y=3
sinX=x-(x*x*x)/(1*2*3)
For i=1 To 30
y=y+2
mod=mod<>TRUE
For n=2 To y
f=f*n
Next n
If (mod) Then
sinX=sinX+x^y/f
Else
sinX=sinX-x^y/f
End
f=1
Next i
Message("","sinX")

И по формуле Эйлера(правда, она дает сравнительно точный результат при очень больших циклах, а значит и медленней намного.):

x2=x*x
pi2=3.14159265359*3.14159265359
sinX=x*(1-x2/pi2)
For i=2 To 100000
y=(i*i)*pi2
sinX=sinX*(1-x2/y)
Next i
Message("","sinX")

х - выбираемое число.

Но... Все в радианах идет... Хотя можно и перевод сделать.
Из градусов в радианы:

radian=degree*3.14159265359/180

В другую сторону:

degree=radian*180/3.14159265359

Добавлено (26 Октября 2007, 16:15)
---------------------------------------------

Вот потому я и написал, что не работало ни фига...
С твоей помощью хоть увидел, что работает :) Правда, коряво...
А что там внедренный файл используется, я понял, видел его.

Круто! А что ты имеешь в виду под сравнительной точностью?
Например, чтобы крутить регулятор громкости, точность нужна невысокая -
плюс-минус пару градусов.

Кстати! Почему про эту фишку нет в твоей статье
Недокументированные возможности ММВ, или 12 полезных советов?
Как раз сегодня обновление статьи выложил на сайт.
Помнится, у тебя были еще какие-то любопытные фишки...

Добавлено (26 Октября 2007, 20:45)
---------------------------------------------
P.s.

Clipboard не лучший вариант, глючит!
А функции все стандартные, если это академический вопрос, дело третье!
Я грешным делом подумал что для дела.

Ну конечно, так писать сценарии разумнее ;)

Все опять свелось к тому, чтобы взять готовые решения. Конечно, в Делфи, как и в других языках, все это уже есть в виде внутренних функций - и синус, и косинус, и тангенс, и арктангенс, и корень, и логарифмы, и экспонента...

Нет, далеко не все. И потому стоит увековечить это в статье.
Если найдешь еще пару-тройку подобных фишек, то статью еще раз дополним.

А куда ж деваться, если ММВ этого не умеет, хоть зарежься...
Другое дело, когда есть достойное решение внутренними функциями ММВ.
Тогда, как говорится, западло использовать плагины :)

НЕПРЕМЕННО!!!

Дык, я полностью солидарен с тобой в данном вопросе!
Именно поэтому в моих проектах вообще практически не бывает плагинов,
за исключением плагинов для трея и прозрачности.

Ну качни бетку и посмотри. Бетка всего 3,3 Мб, у меня на главной ссылка лежит.
Или скажи, как проверить - я сам проверю.