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

[Witaliy]

Найти N-ное число Фибоначчи при 1 <= N <= 10000
Как я понял нужно вставить длинную арифметику, но не знаю как, если можете, дайте какие-то ссылки или код.

Спасибо.

From Stilet: Было уже такое - рули поиском.

[VVM]

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

Вот листинг с процедурой составления ряда Фибоначчи.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    FiboArray: array of integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  I: integer;
begin
  SetLength(FiboArray, 2);
  FiboArray[0] := 1;
  FiboArray[1] := 1;
  I := 2;
  while (FiboArray[I - 1] + FiboArray[I - 2]) < 1000 do
  begin
    SetLength(FiboArray, Length(FiboArray) + 1);
    FiboArray[I] := FiboArray[I - 1] + FiboArray[I - 2];
    inc(I);
  end;
end;

end.

И теперь из массива FiboArray дергаем нужный индекс.