Нужна программа, которая выводит на экран 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;

var
 i:longint;
begin
readln(N);
for i:=1 to n do WriteLn(fib(i));
readln;
end.

Спасибо,
не зря говорят все гениальное - просто
Стыдно, как я сама не додумалась :-(

заходи на форум еще!

natka, интересно узнать - а сколько чисел тебе так удается реально вывести?

ну я вот только что попробовал 45 вывести... вот они


Дальше не стал, долго...итеративный способ надо применять если хочеться больше..

А мне, честно говоря, без разницы, с десяток выведет, преподаватель больше все равно не потребует :-)

фи, какая проза..


Угу, точно.
Ну, может еще десяток можно вытянуть - но даже самый мощный комп заткнется довольно скоро.
Может, это и оффтоп, но просто именно фибоначевские числа есть классический пример для демонстрации динамичекого программирования.

Начиная с 47 уже и длинную арифметику ;)

uses crt;

procedure Fib(n : LongInt);
var
   a,b,c,i : LongInt;
begin
   if (n = 1) or (n = 2) then writeln(1)
    else begin
       a := 1;
       b := 1;
       c := 0;
       i := 2;
       repeat
          c := a + b;
          a := b;
          b := c;
          inc(i);
       until i = n;
       writeln©;
     end;
end;

var
   n,i : LongInt;
begin
   clrscr;
   //readln(n);
   n := 47;
   writeln;
   for i := 1 to n do Fib(i);
   readln;
end.

Я бы сказал, очень скоро - при n = 48 по-моему... Дальше - переполнение LongInt и все, нет веры результатам... Хорошо, если компилировали в {$R+, Q+}... Но я почему-то все чаще вижу именно обратные примеры... Все почему-то работают с {$R-, Q-}

Oops... klem4 уже написАл ...