Фибоначчи

[Walter]

Вообщем, как я немного понял, что надо найти тут в программе. А надо найти следующее, нужен код, который бует определять последовательность чисел Фибоначчи, из любой последовательности чисел, т.е. допустим есть у нас листбокс, туда вводиться какая та последователность чисел, проверяеться есть ли в них числа изпоследовательности Фибоначчи, и выводиться в другой листбокс

[Walter]

Вот есть небольшой кусок, но главный моего кода, т.к. если это бует прально, то и везде смогу его потом переписать, ток вот загвоздка, выдаёт ошибку в счётчике, кто разбераеться, подправте плиз

var count,i,A:integer;
  S:string;
  function fib(n: integer): integer;
begin
count:=0;
for i:=1 to ListBox1.Items.Count-1 do
  begin
     A:=StrToInt(ListBox1.Items[i]);
     if n in [1..2] then fib:=1
                 else fib:=fib(n-1)+fib(n-2);
        ListBox2.Items.Add(IntToStr(A))
end;
end;

end.

[puporev]

Если тебе просто нужна функция для проверки является ли данное число числом Фибонначи, то это можно проверить так.

function FibYes(n:integer):boolean;
var z,k:integer;
begin
z:=1;k:=0;
while z<n do
  begin
    z:=z+k;k:=z-k;
   if (z=n) then FibYes:=true
   else  FibYes:=false;
  end;
end;

[Walter]

А этот код можно использовать, и для ListBOx и StringGrid, т.к. мне надо при помощи этих элементов выводить и вводить последовательность

[puporev]

Да хоть где. Есть послндовательность чисел. Нужно из нее выбрать числа Фибонначи, мы их выбираем как например четные или нечетные, какая разница.
for i:=1 to n do
if FibYes(a[i]) then туда его, если нет, то туда.

[Walter]

А ну понятно теперь... слух ток вот вопрос, может выйти боком мне эта функция FibYes, т.к. я уже похожую использовал, тока там была function fib(n:integer)integer; эт я так понимаю должна для строк подойти да? т.к. ни масивы, ни дополнительные функции не брались

[Sasha_Smirnov]

(а ведь верно слово — фига!)

NumNext := NumNext + NumPred;
означает
"следующее делаем равным сумме ДВУХ предыдущих"
(а точка с запятой — "идём дальше")

И вообще: ограничивать программиста языком — садизм!

[Walter]

Всё эт не плохо, но мне надо только с простыми строками и без доп. функций, а также без массивов, вот что я намудрил, походу в правильном направлении, но где то застопорился...

procedure TForm1.Button2Click(Sender: TObject);
const N=10;
var N1,N2,i:integer;
  count:integer;
begin
N1:=1;
N2:=1;
 for i:=0 to listbox1.Items.count-1 do
  begin
    N:=StrToInt(listbox1.items[i]);
      for i:=1 to N do
        N:=N1+N2;
          N2:=N2+N1;
          N1:=N;
        if Items[i]=N then
          listbox2.Items.add(inttostr(N)));

end;
end;
end.