нет, не получается)
я не знаю, там может как-то извратиться все-таки можно, вычисляя в одной команде f(n - 1) * f(n - 2), а потом менять счетчики, но там какой-то бред будет по факту, конечно...
все-таки я хотел еще раз окончательно выяснить правдивость этой фразы:
Цитата FasterHarder @
Т е как я понял, главный признак каскадной рекурсии в том, что в одной команде она вызывается БОЛЬШЕ 1-го раза.
в моей последней ф-ции НЕТ такой ни одной команды
, т е и каскада нет?а, если так написать?
<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>
//===========================================================
// нахождение наибольшего по модулю элемента вектора
//===========================================================
function CascadeMaxABS(pv: TVector; pleft, pright: integer): integer;
var
center: integer;
//x, y: integer;
begin
//if(pleft = pright) then // подмассив из 1-го элемента
//CascadeMaxABS := pv[pleft] // := pv[pright]
//else
// если отрезок не более 2-х элементов, то возвращаем наибольший из них по модулю
if(pright - pleft < 2) then
begin
if(abs(pv[pleft]) > abs(pv[pright])) then
CascadeMaxABS := pv[pleft]
else
CascadeMaxABS := pv[pright];
end
else // длина подмассива БОЛЬШЕ 2-х элементов
begin
center := (pleft + pright) div 2;
if(abs(CascadeMaxABS(pv, pleft, center)) > abs(CascadeMaxABS(pv, center + 1, pright))) then
CascadeMaxABS := CascadeMaxABS(pv, pleft, center)
else
CascadeMaxABS := CascadeMaxABS(pv, center + 1, pright);
//x := CascadeMaxABS(pv, pleft, center);
//y := CascadeMaxABS(pv, center + 1, pright);
//if(abs(x) > abs(y)) then
//CascadeMaxABS := x
//else
//CascadeMaxABS := y;
end;
end;
//===========================================================
каскад есть
, но что-то мне кажется это не то...