Рекурсия

← →
Mike Kouzmine (2002-10-11 16:08) [40]

Это не суть, важен принцип

← →
han_malign © (2002-10-11 16:33) [41]

Короче на пальцах про рекурсию

function geompr1(b1,q,n:integer):integer; begin if n=1 then geompr1:=b1 else geompr1:=geompr2(b1,q,n-1)*q; end; function geompr2(b1,q,n:integer):integer; begin if n=1 then geompr2:=b1 else geompr2:=geompr3(b1,q,n-1)*q; end; ......................................... function geomprN(b1,q,n:integer):integer; begin if n=1 then geomprN:=b1;//однозначно N=n end;
просто при рекурсии, вместо других экземпляров функции, используется тот же физический фрагмент кода

← →
Anatoly Podgoretsky © (2002-10-11 16:38) [42]

Хороший пример бесконечной рекурсии это
"У попа была собака ..."

← →
Oleg_Gashev © (2002-10-11 16:44) [43]

Например:
Дракон Хартера-Хейтуэя

function K(I:Integer):Integer; begin if i mod 2=0 then k:=K(i div 2) else K:=i mod 4; end; procedure TForm1.FormPaint(Sender: TObject); var x,y,i,Step,angle:Integer; begin Step:=1; angle:=0; x:=width div 2; y:=height div 2; canvas.Pen.Color:=0; canvas.MoveTo(x,y); for i:=1 to 100000000 do begin angle:=(angle+K(i)*90) mod 360; if angle=0 then y:=y-step; if angle=90 then x:=x-step; if angle=180 then y:=y+step; if angle=270 then x:=x+step; canvas.LineTo(x,y); end; end;

Рекурсия Найти похожие ветки