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

until Ysk=True;

Ysk:= False;

end;

end; Ysk:= False;

j_sk:=0;

Repeat

Begin

if Sk_massiv[0+j_sk] <> '#' then Begin

// Запись в гл. массив значение скобки

Gl_massiv[100-z]:= Sk_massiv[0+j_sk];

Ysk:= true; end

else j_sk:=j_sk+1;

end;

Until Ysk = true;

end;

end;

{----- Вычиление значения в скобках закончено -----}

//showmessage(Gl_massiv[0]);

Vivod:= Gl_massiv[0];

end; // Конецпроцедуры

{--------------------------------------------------------}

procedure TForm1.Button_ItogoClick(Sender: TObject);

Var

a,b,h:real; //Отрезок а, b и шаг h

Fx,Fa,Fb:Real; //Результат и суммы значений F(xi)

My_vivod:string;//Значение F(xi)

mas,z,j:integer; //Номерячейкимассива

i:integer; //Номер символа в строке формул

s,st,ch:string; //Символ