Уважаемые форумчане, очень хотелось бы узнать, в чем заключается метод индуктивной функции...
а то в задали задачку делать.. а я даже понятия не имею, про что она...
заранее благодарю..
М | Тема переносится в Алгоритмы. Lapp |
function HowMany(x:char;s:string):integer;
begin
if s='' then HowMany:=0
else begin
if x=s[Length(s)] then t:=1 else t:=0;
HowMany:=t+HowMany(x,Copy(s,1,Length(s)-1))
end
end;
m:=0;
for i:=0 to 9 do begin
n:=HowMany(Chr(48+i),s);
if n>m then m:=n
end
n:=HowMany(Chr(48+i),s)