Function fact(i:integer):longint;
begin
if (i=0) or (i=1) then
fact:=1
else
fact:=fact(i-1)*i
end;
Объясните, пожалуйста, как она работает (ведь это рекурсия?)
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
Рекурсия |
Client |
Сообщение
#1
|
Профи Группа: Пользователи Сообщений: 865 Пол: Мужской Реальное имя: Вячеслав Репутация: 20 |
Function fact(i:integer):longint; Объясните, пожалуйста, как она работает (ведь это рекурсия?) |
Bard |
Сообщение
#2
|
Учиться, учиться еще раз учиться Группа: Пользователи Сообщений: 158 Пол: Мужской Реальное имя: Яшар Репутация: 3 |
Я полностью согласен с Gendalf-ом но есть одно но . Если ты хочешь найти n! то тебе в главной программе надо написать такую строку
ans:=fact(n); writeln(ans);где ans это ответ . Просто в такой программе ответ будет вычисляться с конца тоесть как отметил Gendalf fact(n):=n*(n-1)*(n-2)*...*3*2*1. Сообщение отредактировано: Bard - -------------------- Чтобы поразить цель важна не точность, а смелость
Шарль Луи Монтескё |
Текстовая версия | 26.04.2024 2:40 |