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; Объясните, пожалуйста, как она работает (ведь это рекурсия?) |
volvo |
Сообщение
#2
|
Гость |
Bard, а еще главная программа должна заканчиваться точкой, правда? Вопрос был - НЕ о том, как пользоваться функциями, а о том, как работает рекурсия. Тем более, что если я напишу:
WriteLn(Fact(n)); - то получу тот же ответ. А, кстати, лучше делать не: ..., а вот так: ... Строго говоря, при программировании на Паскале это не играет особой роли, но для как можно более безболезненного перехода на другие языки - привыкать желательно именно к такой форме записи, как я привел. Дело все в том, что есть компиляторы, оптимизирующие хвостовую рекурсию, только вот они первую форму записи не посчитают таковой. А вторую - да, посчитают, и подобная рекурсия развернется в итерацию... |
Текстовая версия | 26.04.2024 7:34 |