Soru = Klavyeden girilen n sayısı kadar fibonecci sayılarını listeleyen programı prosedürde yapınız…

Şekli :

Kodlar :

Procedure fib(sayi:integer); 
var 
x,y,z,i:integer;
begin 
x:=0;
y:=1;
for i:=1 to sayi do
begin 
z:=x+y;
x:=y;
y:=z;
form1.ListBox1.Items.Add(inttostr(z));
end; 
end; 

Procedure TForm1.Button1Click(Sender: TObject);
var 
n:integer;
begin 
form1.ListBox1.Items.Clear;
n:=strtoint(edit1.text);
fib(n);
end;

Çalışma Şekli :

Klavyeden sayı gireriz ve ‘Listele' butonuna bastığımızda girdiğimiz sayı kadar fibonecci sayısını ekrana listeler.