вычисления факториала в Delphi

[fleepone]

помогите пожалуйста!!!!!
нужен ооочень срочно исходник вычисления факториала с блок схемой желательно....полная запара на учёбе!!!!!!!!!

простенькая прога без разных форм и прочего, просто ввод и вывод результатов через writeln при помощи кнопки F9 =))))
заранее благодарен.....и если не затруднит с коментариями для особо тупых=))) хочется не просто списать готовое а еще и вникнуть в суть)

[Serge_Bliznykov]

var Fact : extended;
   i,N : longint;
begin
   Readln(N);
   Fact := 1;
   for i:=1 to N do Fact := Fact * i;
   WriteLn('factorial = ',Fact:0:0);
   readln;
end.

[Utkin]

Я выкладывал здесь на форуме исходники для длинной арифметики. На тот случай если вдруг препод попросит 1000!

[Alex11223]

Я выкладывал здесь на форуме исходники для длинной арифметики.

А где выкладывал? Поиск длинной арифметики по твоему нику их не нашел.

[Utkin]

http://programmersforum.ru/showthrea...D%E8%E5&page=2
Есть журнал ПРОграммист, там я расписал как это работает (найдете сами, Алар запретил давать на него ссылку).