Рекурсия

[lialia]

Здраствуйте,скажите пожалуйста,а как можно расчитать максимальный размер массива в рекурсии(чтобы не было переполнения стека)

[Stilet]

С потолка:

function max(a:array of чего-то,n:integer):integer;
var r:integer;
begin
 if n=Length(a) then begin 
  r:=a[n]; 
 end else begin
  r:=max(a,n+1);
  if a[n]>r then r:=a[n];
 end;
 max:=r;
end;

[lialia]

спасибо

[Аватар]

Если речь идет о максимальном элементе массива, то чтобы стек сильно не забивать можно, например, пополам делить

const a: array [1..11] of Integer = (3,-1,5,7,2,54,0,2,55,1,7);

function Max(IndexFrom,IndexTo: Integer): Integer;
var i,i1,i2,r: Integer;
begin
  if IndexFrom=IndexTo then r:=a[IndexFrom]
  else begin
    i:=(IndexTo-IndexFrom) div 2;
    i1:=Max(IndexFrom,IndexFrom+i);
    i2:=Max(IndexFrom+i+1,IndexTo);
    if i2>i1 then r:=i2 else r:=i1;
  end;
  Max:=r;
end;

s:=IntToStr(Max(1,11));