Başla

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

2 wire paralel LCD

krsnsk tarafından Ocak 17th, 2012 yazıldı. Kategori Arduino

Paralel LCDyi seri olarak kullanabilmek için;

1 – Shiftreglcd kütüpanesi gerekli ancak orjinal kütüphane Arduino 1.0 ile çalışmıyor. Bunu indirip orjinal kütüphaneyi yamayabilirsiniz.

Devamı 0 Yorum

Nuh yılından kalma king kong

krsnsk tarafından Aralık 6th, 2011 yazıldı. Kategori AQ


Bu videoyu 2007′de test için yüklemiştim. Hala yorum geliyor. Bu 1 dakika 5 saniyelik video 13 Şubat 2007′den beri 384,212 kez izlenmiş, 130 like ve 45 yorum almış. Youtube kullanıcıları cidden garip insanlar :)

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