Форум: "Основная";
Текущий архив: 2005.01.09;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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. :-)

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

---

← →
VMcL ©   (2004-12-23 19:58) [6]

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

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

:-~~~~~~~~

---

← →
VMcL ©   (2004-12-23 19:59) [7]

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

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

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

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

:-~~~~~~~~

---

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

Форум: "Основная";
Текущий архив: 2005.01.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.041 c