Recursive Function ne demektir. Nasıl yazılır mantığı nedir

[delphist]

S.a. arkadaşlar Recursive Function ne demektir. Tekniği nedir. Mantığı nasıl yazılır nelere dikkat edilir. Hangi işler için kullanılır. Değerli arkadaşlarımızın bu konuda yorumlarını ve değerli bilgilerinden yararlanmak istiyorum....

Teşekkürler

[selman]

selam
Recursive Function türkçe karşılığı Özyineli Fonksiyonlar anlamına geliyor.
Bildiğim kadarı ile bu fonksiyon sanırım Matematiksel işlemler için kullanlıyor.
Bir sekilde kendi kendini cagiran ve bir eksigiyle kendisini carpan fonksiyon olması lazım.Kolay gelsin

[Hakan Can]

Aşağıda örnek procedure kavramana yardımcı olabilir:

Kod: Tümünü seç

procedure MyGetFileNamesByExt(aDir: string; const aExt: string; aList: TStrings);
var
  SR: TSearchRec;
begin
  if aDir = '' then Exit;
  if not (aDir[Length(aDir)] in ['\', '/']) then aDir := aDir + '\';
  if FindFirst(aDir + aExt, faAnyFile, SR) = 0 then
  begin
    repeat
      if (SR.Name = '.') or (SR.Name = '..') then Continue;
      if SR.Attr and faDirectory <> 0 then
        MyGetFileNamesByExt(aDir + SR.Name, aExt, AList)
      else
        aList.Add(aDir + SR.Name);
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;

İyi çalışmalar.

[t-hex]

Ben daha önceden 2 tane makele yazmıştım bu konuyla ilgili, onları da inceleyebilirsiniz:

viewtopic.php?t=7607&highlight=algoritmalar
viewtopic.php?t=7546&highlight=algoritmalar