Re: Can You Help Me ?

Posted by Jorg on March 19, 19103 at 14:47:54:

In Reply to: Can You Help Me ? posted by SaM RiChArds on March 19, 19103 at 10:14:03:

Hi sam,
I hope this is useful

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
MinusTwo, MinusOne, Answer: int64; // to avoid overflow

implementation

{$R *.DFM}

procedure Fibonacci (position: integer);
var i: integer; //counter
begin
form1.edit1.text:=inttostr(position);
MinusTwo := 1;
MinusOne := 1;
Answer := 2;
//This intial values are the first 3 Fibonacci
if position < 3 then Answer := 1; //the first two numbers are '1'
for i := position-3 downto 1 do
begin
MinusTwo := MinusOne;
MinusOne := Answer;
Answer := MinusOne + MinusTwo;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var value,code: integer;
begin
val(edit1.text,value,code); // (see 'VAL-procedure' via F1
Fibonacci(value);
label1.caption := inttostr(answer);
end;

end.