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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 24.01.2008, 10:56   #1
Prisian
Пользователь
 
Регистрация: 23.04.2007
Сообщений: 38
Подмигивание Факториал числа в Delphi

помогите, пожалуйста как мне на делфи реализовать функцию, например, 5!(пять факториал).
Prisian вне форума
Старый 24.01.2008, 11:04   #2
Aristarh Dark
Форумчанин
 
Регистрация: 07.08.2007
Сообщений: 154
По умолчанию

Для этого нужно написать функцию вычисления факториала от любого числа (по этой теме круче всего осведомлен гугл), а затем вызвать ее с параметром - 5.
Aristarh Dark вне форума
Старый 24.01.2008, 11:06   #3
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Как и в паскале - в цикле )
I'm learning to live...
Stilet вне форума
Старый 24.01.2008, 11:54   #4
Alar
Александр
Администратор
 
Аватар для Alar
 
Регистрация: 28.10.2006
Сообщений: 17,758
По умолчанию

http://programmersforum.ru/showthread.php?t=12624 - вычисление факториал в C++
Alar вне форума
Старый 24.01.2008, 12:13   #5
vitalik007
Дельфист
Форумчанин
 
Аватар для vitalik007
 
Регистрация: 14.08.2007
Сообщений: 317
По умолчанию

я конечно еще не знаю что такое факториал
но по коду на с посотрел
вот на дэлфи
var a,i,otvet:integer;
begin
readln(a);
for i:=1 to a do
otvet:=otvet*i
writeln(otvet)

readln;
end.
ICQ-465033557
WINDOWS CE THE BEST
vitalik007 вне форума
Старый 24.01.2008, 12:23   #6
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
vitalik007
Так может не сработать если не учесть что перед циклов ответ=0
I'm learning to live...
Stilet вне форума
Старый 24.01.2008, 12:26   #7
vitalik007
Дельфист
Форумчанин
 
Аватар для vitalik007
 
Регистрация: 14.08.2007
Сообщений: 317
По умолчанию

я ведь говрю не представляю что такое факториал

ну тогда вот такой код

var a,i,otvet:integer;
begin
readln(a);
if a<>0 then begin
for i:=1 to a do
otvet:=otvet*i;
writeln(otvet);
end else writeln('error');
readln;
end.
ICQ-465033557
WINDOWS CE THE BEST
vitalik007 вне форума
Старый 24.01.2008, 12:27   #8
B_N
Новичок
Джуниор
 
Регистрация: 18.01.2008
Сообщений: 1,720
По умолчанию

Факториалом натурального числа n называется произведение всех натуральных чисел, меньших или равных n. Есть еще обобщение на множество комплексных чисел, но вряд ли оно здесь нужно. Из определения вытекают два алгоритма:

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

Последний раз редактировалось B_N; 24.01.2008 в 12:30.
B_N вне форума
Старый 24.01.2008, 12:32   #9
2face
Пользователь
 
Регистрация: 23.05.2007
Сообщений: 24
По умолчанию

Вообще-то 0!=1, т.е. fact(0)=1
2face вне форума
Старый 24.01.2008, 12:46   #10
SunKnight
Участник клуба Подтвердите свой е-майл
 
Аватар для SunKnight
 
Регистрация: 14.12.2007
Сообщений: 1,434
По умолчанию

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

Pn=n!;

Теория вероятности.
Проповедую design patterns, верую в MVC, доверяю eXtrime programming.
SunKnight вне форума
Закрытая тема


Купить рекламу на форуме - 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