Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 24.01.2008, 12:48   #11
B_N
Новичок
Джуниор
 
Регистрация: 18.01.2008
Сообщений: 1,720
По умолчанию

0! принимается равным единице, но на самом деле он для нуля (в данном определении) не существует потому, что 0 - не натуральное число. Но, с другой стороны, почему бы и не поправить
Код:
function fact(n:integer):integer;
begin
    var i :integer;
    if n < 0 
        result := 0;
    else if n = 0
        result := 1;
    else begin
        result := 1;
        for i := 1 to n do result := result * i;
    end;
end;
Код:
function fact(n:integer):integer;
begin
    if n < 0 result := 0;
    else if n <= 1 then result := 1
    else result := n * fact(n - 1);
end;

Последний раз редактировалось Stilet; 24.01.2008 в 13:06. Причина: B_N, я маненько подправлю второй код для точности )
B_N вне форума
Старый 24.01.2008, 13:07   #12
still_alive
Great Code Monkey
Форумчанин
 
Аватар для still_alive
 
Регистрация: 09.08.2007
Сообщений: 533
По умолчанию

Цитата:
Производная натуральных чисел
В смысле произведение?

Цитата:
Теория вероятности.
Неа, азы комбинаторики.

Код:
function Fact(const N: Integer): Integer;
var
  I: Integer;
begin
  if N < 0 then
    Result := -1
  else
  begin
    Result := 1;
    for I := 2 to N do
      Result := Result * I;
  end;
end;
B_N, признавайся - ты сишник?
still_alive вне форума
Старый 24.01.2008, 13:08   #13
2face
Пользователь
 
Регистрация: 23.05.2007
Сообщений: 24
По умолчанию

Цитата:
Сообщение от SunKnight Посмотреть сообщение
ЛИКБЕЗ.
Множитель (лат) - factor.Производная натуральных чисел от 1 до n называется факториалом и обозначается n!.

Pn=n!;

Теория вероятности.
Математику в школе учить надо! 0!=1 - это исключение. Если человеку давать функцию, то правильную.
2face вне форума
Старый 24.01.2008, 13:10   #14
2face
Пользователь
 
Регистрация: 23.05.2007
Сообщений: 24
По умолчанию

Pn=n! - сумма всех перестановок n элементов. Комбинаторика!!!
2face вне форума
Старый 24.01.2008, 13:10   #15
B_N
Новичок
Джуниор
 
Регистрация: 18.01.2008
Сообщений: 1,720
По умолчанию

Цитата:
Сообщение от still_alive Посмотреть сообщение
B_N, признавайся - ты сишник?
А шо? Заметно?
B_N вне форума
Старый 24.01.2008, 13:17   #16
still_alive
Great Code Monkey
Форумчанин
 
Аватар для still_alive
 
Регистрация: 09.08.2007
Сообщений: 533
По умолчанию

Цитата:
сумма
Только не сумма, а кол-во.

B_N, по отсутствию then и объявлению переменных внутри кода функции это было легко определить
still_alive вне форума
Старый 24.01.2008, 13:23   #17
B_N
Новичок
Джуниор
 
Регистрация: 18.01.2008
Сообщений: 1,720
По умолчанию

Цитата:
Сообщение от still_alive Посмотреть сообщение
B_N, по отсутствию then и объявлению переменных внутри кода функции это было легко определить
Хе-хе.. then наверно забыл с непривычки, каюсь . А с переменными... да уж.. перемудрил... компильнуть-то нечем, не ставить же паскаль-то... Вот так всегда, хочешь, как лучше, а получается....
B_N вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
математическ функции в Delphi - факториал... Иринкаа Помощь студентам 5 26.03.2008 21:59
Delphi и простые числа razoom Фриланс 6 13.02.2008 14:09
Факториал числа (циклы) Sargon Общие вопросы C/C++ 2 14.01.2008 02:25
Факториал от дробного числа RIO Помощь студентам 11 26.12.2007 18:36
Ассемблер. Факториал числа. Коментарии к программе Irwin Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 4 03.05.2007 13:52