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

//Проверка на значение косинуса

if s='c' then Begin

s:='cos'; i:= i+2; end;

//Проверка на значение синуса или корня

if s='s' then Begin

i:= i+1; st:= Copy(Edit_F.text,i,1);

if st='i' then begin

s:='sin'; i:=i+1; end

else begin s:='sqrt'; i:=i+2; end; end;

//Проверканазначениецифры

if (s='0') or (s='1') or (s='2')or (s='3')or (s='4')

or (s='5')or (s='6')or (s='7')or (s='8')or (s='9') then

Begin

ch:=s; Bool:=False;

Repeat

Begin

i:=i+1; // Перемещение к след. символу

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

//Проверканазначениецифры

if (s='0') or (s='1') or (s='2')or (s='3')or (s='4')

or (s='5')or (s='6')or (s='7')or (s='8')or (s='9')or (s=',') then

Begin //Если Да

//Обьединение нескольких цифр подрят

ch:= ch+s;

end

else Bool:=True; //Еслинет Bool - Истина

end;

Until Bool=True; //Выход, если Bool - Истина

My_massiv[j]:= ch; j:=j+1 //Запись значений цифр в массив