Факториал

← →
stelius © (2004-12-23 17:32) [0]

Есть в дельфях встроенная функция, которая считает факториал?

← →
Eraser © (2004-12-23 17:35) [1]

Нету :(
Пиши сам, она не сложная
f:=!n; // ;))))

← →
VMcL © (2004-12-23 18:34) [2]

function Factorial(const N: Byte): Int64; var I: Integer; begin Result := 1; for I := 2 to N do Result := Result * I; end;

← →
Eraser © (2004-12-23 18:36) [3]

Только лучше используй тип Extended, а то int64 на много не хватит ;)))

← →
begin...end © (2004-12-23 18:38) [4]

> [2] VMcL © (23.12.04 18:34)

А чего память не экономите? :-) Раз уж N: Byte, то и I: Byte. :-)

← →
Ega23 © (2004-12-23 18:41) [5]

А чего память не экономите? :-) Раз уж N: Byte, то и I: Byte. :-)

Не факт, что это экономия памяти... :о)

>>begin...end © (23.12.04 18:38) [4]

Потому что I наверняка в регистре будет (при включенной оптимизации, по краней мере). Используя какой-нибудь там AL вместо EAX много не наэкономишь. К тому 32-битные процессоры быстрее работают с 32-битными регистрами, чем с 8- или 16-битными. Вот.

:-~~~~~~~~

>>VMcL © (23.12.04 19:58) [6]

Блин, ну и написАл. Вот:

>>begin...end © (23.12.04 18:38) [4]

Потому что I наверняка в регистре будет (при включенной оптимизации, по крайней мере). Используя какой-нибудь там AL вместо EAX много не наэкономишь. К тому же, 32-битные процессоры быстрее работают с 32-битными регистрами, чем с 8- или 16-битными. Вот.

:-~~~~~~~~

Факториал Найти похожие ветки