[JIbIC9ILLIKA]

Вот такая проблемка возникла. Нужна программа по расчету числа Фибоначчи.

Может кто-нибудь подсказать, в чем тут ошибка?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55

unit Unit2;    interface    uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;    type   TForm1 = class(TForm)     Label1: TLabel;     editN: TEdit;     Label2: TLabel;     Label3: TLabel;     editFib: TEdit;     Button1: TButton;     Label4: TLabel;     procedure Button1Click(Sender: TObject);   private       function Fibona44i (n: byte): double;   public     end;    var   Form1: TForm1;    implementation      function TForm1.Fibona44i(n: byte): double; begin   if ((n=1)or(n=2)) then     Result := 1   else     // двойной рекурсивный вызов:     // память расходуется катастрофически     Result := Fibona44i(n-1)+Fibona44i(n-2); end;   procedure TForm1.Button1Click(Sender: TObject); var   n: byte; begin   try     n := StrToInt(editN.Text);   except     MessageDlg('От 0 до 255',       mtError, [mbOK], 0);   end;   editFib.Text := FloatToStrF(Fibona44i(n),ffGeneral,6,0); end;    end.

Admin: Пользуемся тегами!

[lmikle]

А что неправильно-то?
Ну есть некоторые помарки, которые при неверных входных данных дадут косяк. Но по сути все правильно.
Вот ошибки:
1. Число Фибоначчи для 0 и отрицательных чисел не определено. Проверки на это нет.
2. В принципе, для увеличения быстродействия при нескольких запусках можно использовать процедуру с памятью.
3. В процедуре вызове вне зависимости от того, произошла ошибка при преобразовании или нет, запускается расчет. Надо внести запуск расчета внутрь секции Try.
4. Для расчета числа фибоначи большого порядкового номера лучше использовать тип Int64 - таки там данных поболее помещается. А тип с плавающей точкой все-таки нужен для ну очень больших чисел.

[lmikle]

Кстати, вот функция расчета чисел фибоначи с памятью:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

var   Fibs : Array Of Int64;   function Fib(N : Int64) : Int64; begin   If N < 1 Then Raise Exception.Create('Fib: N не может быть < 1.');   If N < 3     Then Result := 1     Else       Begin         If Length(Fibs) >= N           Then Result := Fibs[N-1]           Else Result := Fib(N-1) + Fib(N-2);       End;   If N = Length(Fibs) + 1 Then     Begin       SetLength(Fibs,N);       Fibs[N-1] := Result;     End; end;   initialization   SetLength(Fibs,0);   finalization   SetLength(Fibs,0);

Считает до N = 92. Дальше - переполнение. Зато расчет абсолютно точный.