Başla Neler yaptık?Delphi

Fibonacci

krsnsk tarafından Ocak 19th, 2012 yazıldı. Kategori Delphi, Kendime Not

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

Devamı 0 Yorum

Dinamik diziden eleman silme

krsnsk tarafından Kasım 11th, 2011 yazıldı. Kategori Delphi

elemansil.pas
raw download 
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;

Devamı 0 Yorum

QR Code Business Card