Метод индуктивной функции Опции

[priboltik]

Уважаемые форумчане, очень хотелось бы узнать, в чем заключается метод индуктивной функции...
а то в задали задачку делать.. а я даже понятия не имею, про что она...


заранее благодарю..

[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

Вот, примерно так. Конечно, рекурсия тут ни к чему абсолютно (только жрет память и время), но думаю, с тебя ее потребуют, потому что иначе присобачить индуктивные функции тут некуда.

[-Lumka-]

Привет) можешь написать полную программу этой подпрограммы? пож-та