ряд Фибоначчи на Делфи

[bot7]

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

[Stilet]

как выводить ряд я знаю

Показывай.

[bot7]

procedure TForm1.BitBtn1Click(Sender: TObject);
var
n, i: Integer;
F, F1, F2: Int64;
begin
Self.ResultMemo.Lines.Clear;
try
n := StrToInt(Self.NEdit.Text);
except
n := 0;
Application.MessageBox(PChar('Не корректно введено число N'), PChar('Ошибка!'),
MB_OK + MB_ICONERROR);
Self.NEdit.SetFocus;
end;
F1 := 1; F2 := 1;
for i:=1 to n do
begin
if i<3 then
F := 1
else begin
F := F1+F2;
F1 := F2;
F2 := F;
end;
Self.ResultMemo.Lines.Add('F['+IntToStr(i)+']='+IntToStr(F));
end;
end;

end.

[bot7]

и то защита не работает(

[savva]

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

К тому же числа фибоначчи наверное удобнее держать в массиве чисел.

и складывать будет удобнее
а первые 2 числа задаёшь в ручную
for i=1 to N do
a[i-1]+a[i]=a[i+1]