Применение рекурсивных функций - Паскаль, Turbo Pascal, PascalABC.NET

Jalgas-xan · 18.01.2013, 16:47

нужно разработать программу вычисляющую факториал введенного натурального числа N. напомним что число факториала N называют произведение всех целых чисел от 1 до N. принято считать что 0!=1.
помогите пожалуйста, СРОЧНО нужно((

DiemonStar · 18.01.2013, 16:57

Код:

Function Fact(N : LongInt) : LongInt;
begin
  If  N > 1 then
     Fact := N * Fact(N-1)
  else
     Fact := 1;
  end; 
end;

ну это же элементарно))) намного быстрее в гугле найти...

з.ы. не забываем про то, что факториал очень быстро нарастает и переполнение можно получить тоже очень быстро...

Jalgas-xan · 18.01.2013, 16:58

ОГРОМНОЕ СПАСИБО =))

18.01.2013, 16:47	#1
Jalgas-xan Пользователь Регистрация: 16.01.2013 Сообщений: 12	Применение рекурсивных функций нужно разработать программу вычисляющую факториал введенного натурального числа N. напомним что число факториала N называют произведение всех целых чисел от 1 до N. принято считать что 0!=1. помогите пожалуйста, СРОЧНО нужно((

18.01.2013, 16:57	#2
DiemonStar Старожил Регистрация: 08.02.2012 Сообщений: 2,173	Код: `Function Fact(N : LongInt) : LongInt; begin If N > 1 then Fact := N * Fact(N-1) else Fact := 1; end; end;` ну это же элементарно))) намного быстрее в гугле найти... з.ы. не забываем про то, что факториал очень быстро нарастает и переполнение можно получить тоже очень быстро... Правильно поставленная задача - три четверти решения.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Применение нескольких функций	caen21rus	Общие вопросы C/C++	6	01.06.2009 18:23
Применение нескольких функций	caen21rus	Общие вопросы C/C++	3	28.05.2009 15:35
РАЗРАБОТКА РЕКУРСИВНЫХ АЛГОРИТМОВ И ПРОГРАММ	юра 3	Паскаль, Turbo Pascal, PascalABC.NET	1	30.12.2008 16:46

18.01.2013, 16:58	#3
Jalgas-xan Пользователь Регистрация: 16.01.2013 Сообщений: 12	ОГРОМНОЕ СПАСИБО =))