![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
natka |
![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 39 Пол: Женский Репутация: ![]() ![]() ![]() |
Нужна программа, которая выводит на экран N первых чисел последовательности Фибонначи. Для вычисления нужно использовать рекурсивную функцию.
Программа есть, но она выводит только последнее число, не могу понять как сделать, чтобы она выводила все числа. Может кто подскажет. Код var N:integer; function fib(n:integer):longint; begin case n of 0: fib:= 0; 1,2:fib:= 1 else fib:=fib(n-1)+fib(n-2); end; end; begin readln(N); WriteLn(fib(N)); readln; end. |
![]() ![]() |
natka |
![]()
Сообщение
#2
|
Новичок ![]() Группа: Пользователи Сообщений: 39 Пол: Женский Репутация: ![]() ![]() ![]() |
Спасибо,
не зря говорят все гениальное - просто Стыдно, как я сама не додумалась :-( |
![]() ![]() |
![]() |
Текстовая версия | 22.06.2025 14:13 |