Числа Фибоначчи Delphi

[KIMWO]

Здравствуйте, у меня вопрос жизни и смерти.
Помогите решить задачу с помощью языка программирования Delphi

задача состоит в следующем:
есть заданная последовательность целых чисел (n; xi, i=1...n)
найти первое число фибоначчи поповшееся в этой последовательности.
(в случае не нахождения такового вывод сообщения "нет" в случае да число фибоначчи " ")

Пожалуйста помогите..

[VIK_aka_TOR]

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

[KIMWO]

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

[VIK_aka_TOR]

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

[DiemonStar]

мне просто нужен программный код.
извините конечно, но я помощи прошу, а не нравоучений.

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

[KIMWO]

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

[VikaR]

для 100 первых чисел Фибоначчи и максимум 100 чисел из файла "1.txt" лежащего в однй директории с экзешником

var
   fibo: array[1..100] of integer;
   nums: array[1..100] of integer;
   i, j, k: integer;
   filen: TextFile;
   no: boolean;
begin
   AssignFile(filen, '1.txt');
   Reset(filen);
   k:=0;
   while not Eof(filen) do
   begin
      Read(filen, nums[k]);
      inc(k);
   end;
   fibo[1]:=1;
   fibo[2]:=1;
   for i:=3 to 100 do
      fibo[i]:=fibo[i-1]+fibo[i-2];
   no:= true;
   for i:=1 to k do
      for j:=0 to 100 do
         if nums[i] = fibo[j] then
         begin
            no := false;
            ShowMessage('Найдено:' + IntToStr(nums[i]));
         end;
    if no then
       ShowMessage('Не найдено');
end;

[BDA]

VikaR, небольшое замечание:
354224848179261915075 (100-е число Фибоначчи)
2147483647 (максимальное значение integer)

Свое решение, может быть, выложу ближе к вечеру.

Update
9223372036854775807 (максимальное число int64 - уже почти хватает для 100-го числа Фибоначчи)

Если объявить массив
Код:
fibo: array[1..100] of real;
, то все верно.

Если его так объявить, то это нарушит условия. В условии целые числа, т.е. придется переписывать условия сравнения, да и точность будет страдать.

Остановимся на числе integer и найдем (для простоты программы) максимальное число Фибоначчи, помещающееся в данный тип, вручную.
Таким элементом является 46 число Фибоначчи - 1836311903.

program Project1;
{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  c = 46; // count of fibbonacci

var
  f: array [1 .. c] of integer;
  n, i, j, a: integer;
  no: boolean;

begin
  try
    f[1] := 1;
    f[2] := 1;
    for i := 3 to c do
      f[i] := f[i - 1] + f[i - 2];
    write('Input n: ');
    readln(n);
    for i := 1 to n do
    begin
      read(a);
      if not((a < f[1]) or (a > f[c])) then
        for j := 2 to c do
          if f[j] = a then
          begin
            writeln('First fibonacci element ', a, ' on ', i,
              ' position from ', n);
            readln;
            readln;
            exit;
          end;
    end;
    writeln('No fibonacci elements');
    readln;
    readln;
  except
    on E: Exception do
      writeln(E.ClassName, ': ', E.Message);
  end;

end.

[VikaR]

ВDA, верное замечание!
Если объявить массив

fibo: array[1..100] of real;

, то все верно.

[KIMWO]

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