Фибоначчи

[ZHaN_IK]

1 1 2 3 5 8 13 21 => FiBBoNaCHi???
kto mojet rewit'?

[Alex11223]

1 1 2 3 5 8 13 21 FiBBoNaCHi???

Да, это часть последовательности чисел Фибоначчи. А что вы хотели?)

[ZHaN_IK]

Мне нужна программа! Паскаль Турбо

[Alex11223]

хоть бы в гугл заглянул

function fib(n:integer):integer;
var c:integer;
begin
if  n<3 then fib:=1
else 
   fib:=fib(n-1)+fib(n-2);
end;


begin
   writeln('Enter n:');
   readln(n);
   writeln(fib(n));
end.

[ZHaN_IK]

Не нашел там типа этой ниче. Спасибо!!!

ошибка!!! где-то что-то не так!!! не выводит!!!

function fib(n:integer):integer;
var c:integer;
begin
if  n<3 then fib:=1
else 
   fib:=fib(n-1)+fib(n-2);
end;


begin
   writeln('Enter n:');
   readln(n);
   writeln(fib(n));
end.

надо только найти где эта ошибка???

[Alex11223]

var n:integer; еще объявить надо. (над функцией)

Все правильно, выводит n-ый член последовательности.

[ZHaN_IK]

понял ща посмотрю

1 1 2 3 5 8 13 21 34 55....
воот! мне нужна последовательность! в этой программе ее нееет!
например когда я ввожу 1 она показывает 1
а когда я ввожу 2 то она должна показать 3, но она опять показывает 1!!!
Что не так???

[Mad_Cat]

учебник в руки. Тема "циклы" в частности for

[ZHaN_IK]

бегу))))))))))))))))))))

[Alex11223]

Вышеприведенная программа

выводит n-ый член последовательности.

Все так. Если вам нужно вывести последовательность от 1 до n-го члена, то надо изменить код.