рассчитать числа Фибоначчи в Delphi

[sunni_girl91]

У меня есть программа калькулятор калькулятор2.rar. мне нужно доделать эту программу так чтобы она рассчитывала числа фибоначчи, т.е. набираешь число 12 и на экране должно выдаться число 89)) пожалуйста помогите)

[Stilet]

Загляни вниз страницы, в похожие темы.

[sunni_girl91]

я понимаю как просто в отдельной программе сделать числа фибоначчи) но как доделать работу калькулятор калькулятор2.rar так чтобы она рассчитывала дополнительно числа фибоначчи!!!!!!!!!! я понятия не имею как это делать)

[ololo-schoolboy]

в файл Unit1.dfm добавь

  object Button20: TButton
    Left = {положение}
    Top = {положение}
    Width = 75
    Height = 25
    Caption = 'fib'
    TabOrder = 20
    OnClick = Button20Click
  end

а в Unit1.pas добавь

    Button20: TButton;
procedure TForm1.Button10Click(Sender: TObject);
begin
  Edit1.Text:=FloatToStr(fib(StrToFloat(Edit1.Text)));
end;

ну и function fib(n:integer):integer; разумеется

зы только у меня на дельфи дальше hello world не дошло