[VBA] алгоритмы разветвляющейся структуры

[ViktorR]

Посмотри тут.http://www.kvadromir.com/ar149.html
В конце страницы есть решение в формулах. Надо реализовать на VBA.
Если есть проблемы то возможно вам помогут в другом разделе за умеренное вознаграждение ?

[Cuprum5]

Сообщение от Dimok218

к чему это не понимаю

Ну как к чему? К Вам. Картинку нарисуйте профиля бревна, если непонятно. Круг, в нем вписанный прямоугольник и его диагонали.
В Арутюнове сразу косяк нашел, в первой строчке решения не d^2 - x^2 + y^2, а d^2 = x^2 + y^2 - по теореме Пифагора.
ViktorR, а что значит R в выходной формуле у Арутюнова? Это радиус или что вообще?

[digitalis]

Ну если дифференцировать аналитическим способом, то и комп не нужен
Но так как мы вроде как программисты, я бы сделал просто в лоб, классическим " перебором по сетке" :

procedure TForm1.FormClick(Sender: TObject);
var  a,h,k,d,d2,fixk : real ; i,fix: integer;
begin
  d := 20 ; // для определенности
  d2 := d * d ; fixk := 0;
  for i := 1 to 19 do
    begin
      a := i ; h := Sqrt ( d2 - a*a ) ; k := a * h * h ;
      Memo1.Lines.Add(Format ('%2d %6.2f  %6.2f %8.2f',[i,a,h,k])) ;
      if k > fixk then
        begin fixk := k ; fix := i end ;
    end ;
end ;

Ну вот, интервал локализации максимума определен, теперь чем хочешь - хоть дихотомией, хоть еще чем - ищем значение с заданной точностью.
ТС, выбачай, это на Дельфи, на VBA сам перепрешь
http://kafedra-des.narod.ru/download...ekstremuma.pdf - для повышения ерундиции