Recurcividad

ANALISIS DE SISTEMAS 3º SEMESTRE

ESTRUCTURA DE DATOS RECURSIVIDAD
Docente:Ing. Lily Arenas Alumno:Ronald Roca

INCOS - SANTA CRUZ

function factorial (n:integer):integer; var f:integer;begin if n=0 then factorial:=1 else begin f:=factorial(n-1); factorial:=f*n; end; end; procedure TForm1.fctorialClick(Sender: TObject); var n1,f1:integer; begin n1:=strtoint(edit1.Text);f1:=factorial(n1); label2.Caption:='El Factorial es: ' +inttostr(f1); end;

function factorial (n:integer):integer; var f:integer; begin if n=0 then factorial:=1 else begin f:=factorial(n-1); factorial:=f*n;end; end; procedure TForm1.fctorialClick(Sender: TObject); var n1,f1:integer; begin n1:=strtoint(edit1.Text); f1:=factorial(n1); label2.Caption:='El Factorial es: ' +inttostr(f1); end;

INCOS -SANTA CRUZ

function producto(n:integer):integer; var p:integer; begin if n=1 then producto:=1 else begin p:=producto(n-1); producto:=p*n; end; end; procedure TForm1.Button1Click(Sender: TObject);var n1,p1:integer; begin n1:=strtoint(edit1.Text); p1:=producto(n1); label2.Caption:='El producto es: '+inttostr(p1); end;

INCOS - SANTA CRUZ

procedure TForm1.BitBtn1Click(Sender: TObject);var i,dato:integer; begin n:=strtoint(inputbox('Dimensión del Vector','Cantidad de Elementos','')); for i:=1 to n do begin dato:=strtoint(inputbox('Ingrese Datos','Dato','')); v[i]:=dato;stringGrid1.Cells[(i-1),0]:=inttostr(dato); end; end; procedure TForm1.BitBtn3Click(Sender: TObject); begin close; end; function suma (v:vector; n:integer):integer; var s:integer; begin if n=1 then suma:=v[1]else begin s:=suma(v,n-1); suma:=(s+v[n]); end; end; procedure TForm1.BitBtn2Click(Sender: TObject); var s1:integer; begin s1:=suma(v,n); label1.caption:='La suma es: '+inttostr(s1); end; end.INCOS - SANTA CRUZ

procedure TForm1.BitBtn1Click(Sender: TObject); var dato,i:integer; begin n:=strtoint(inputbox('Dimensión del Vector','Cantidad de Elemento','')); for i:=1 to n do begin...