Fibonacci http://t.co/jNCuDht8
Fibonacci
Fibonacci dizisi sayıları 0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2584, 4181, 6765, 10946, … vb. şeklinde devam eder. Bu sayılar birbirleriyle oranlandığında altın oran ortaya çıkar ve her sayı kendisinden önce gelen iki sayının toplamıdır. Bu durumda genel olarak n’inci Fibonacci sayısı F(n) şu şekilde
Dinamik diziden eleman silme
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 |
//kullanımı: elemansil(Eleman silinecek dizi,kaçıncı eleman); //liste:array[0..3] of integer; diziniz 1,2,3,4 şeklinde ise //elemansil(liste,2); //yeni dizi diziniz 1,2,4 şeklinde olur ve uzunluğu bir azalır //Tlistearray değişkeni için // //type //Tlistearray = array of Integer; (integer yerine kendi dizi tanımınız) // //var //liste:Tlistearray; // //şeklinde tip tanımlamanız gerekmektedir. procedure elemansil(var aDizi:Tlistearray; const aPos:integer); var lg, j : integer; begin lg := length(aDizi);//dizinin uzunluğunu al if aPos > lg-1 then//silinecek eleman dizi uzunluğundan fazla ise çık exit else if aPos = lg-1 then//silinecek eleman dizinin son elemanı (veya tek) dizi uzunluğunu belirle ve çık begin Setlength(aDizi, lg -1); exit; end; for j := aPos to lg-2 do//bütün elemanları silinen elemana göre kaydır. aDizi[j] := aDizi[j+1]; SetLength(aDizi, lg-1);//yeni dizinin boyutunu belirle end; |