Курсовая работа: Метод Золотого сечения на Delphi

Bool:Boolean;

//Массивсимволовформулы

My_massiv:Array [0..100] of string;

begin

//Присвоение к переменным значений отрезка а,b и шага h

a:= StrToFloat(Edit_A.Text);

b:= StrToFloat(Edit_B.Text);

h:=StrToFloat(Edit_Int.Text);

z:=0;

// Вычисление значений Xi на отрезке a,b с шагом h

Repeat

Begin //Начало цикла

//Вывод в массив значения Xi

SS.Cells[0,z]:= FloatToStr(a);

z:=z+1; //Переход на ячейку ниже

a:=a+h; //Шаг

end;

Until a > b; //Продолжение цикла до конца отрезка а,b

mas:=0;

//Вывод всех значений F(xi) в массив

Repeat

begin

i:=1; j:=1;

Repeat

//Вычисление F(xi) и вывод в массив

Begin

s:= Copy(Edit_F.text,i,1); //Копировать i-й символ в строке формул

//Проверка на значение натурального логарифма

if s='l' then Begin