Фибоначчи

[Walter]

Кст, кто может подсказать, как построить последовательность, содержащую первые N чисел Фибоначчи? А то я даж не сталкивался ниразу с этими числами Фибоначчи, и не понимаю о чём идёт речь

[MalexG]

Образование чисел Фибоначчи регулируется следующим законом:
Fn=Fn-1+Fn-2 , при всех n>2.
Числа Fn , образующие последовательность 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, ... называются "числами Фибоначчи", а сама последовательность - последовательностью Фибоначчи.

[Walter]

Так, ну хоть чтото прояснилось, а вот терь вопрос, как построить саму последовательность? Ибо я смотрел на форуме про Фибоначчи, там как то не внятно всё эт написано, слишком сложным языком, мона как то по проще?

[north]

Нужно создать массив. Первый и второй эллемент "1". А дальше в цикле.
Пример на паскале:

for i := 3 to n do a[i] := a[i-1] + a[i-2]

a - массив

[Walter]

В том то и дело, что масивы не изучались ещё, надо как то примитивным способом

[north]

на паскале надо реализовать?
если да, то вот:

f1 := 0;
f2 := 1;
write('1 ');
for i := 2 to n do
begin
  f3 := f1 + f2;
  write(f3,' ');
  f1 := f2;
  f2 := f3;
end;

[Walter]

Нее, мне желательно в Делфи

[north]

этот код подходит и для делфи, только остаётся переменные описать

[MalexG]

var
  i, NumPred, NumNext, NumOld: integer;
  Count: integer;
...
write('ВВедите число: ');
readln(Count);
NumPred := 1;
NumNext := 1;
write (NumPred, ' ');
write (NumNext, ' ');
for i := 3 to Count do
begin
  NumOld  := NumNext;
  NumNext := NumNext + NumPred;
  NumPred := NumOld;
  write(NumNext, ' ');
end;
readln;

А в Delphi тоже самое, немного ручками поработай.

[Walter]

А этот код, на нахождение самих чисел, или же постройки последовательности?
Вот ещё, спс тебе за код, но дело в том, что Паскаль как таковой я мало изучал, сразу на Делфи перешли, и поэтому многое из Паскаля мне не знакомо, так что, может хотябы коментарии сделай, а то смотрю как в книгу, но нифига не понимаю, будто написано на китайскими иероглифами