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

[Nicole]

Подскажите, пожалуйста!
В следствие выполнения программы я вывела в Edit некоторую числовую строку (ее элементы располагаются через пробел). Как теперь найти в Edit'e первый по порядку элемент, являющийся числом Фибоначчи?
(Выводить его не надо - сама знаю как это сделать...)

[Mad_Cat]

напишите функцию для проверки и распарсьте строку в едите)

Function isFib(fibi:integer):boolean;
var p1,p2,tmp:integer;
begin
isFib:=false;
P1 := 1; 
P2 := 1; 
while p2 < fibi do 
begin 
tmp := p2; 
p2 := p1 + p2; 
p1 := tmp 
end; 
isFib:=p2 = fibi;
end;

либо

Тест Гесселя: число N является числом Фибоначчи тогда и только тогда, когда 5N^2 + 4 или 5N^2 - 4 является квадратом.

[Nicole]

Спасибо. Теперь все понятно.