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

if Sk_massiv[i_sk]= '-' then

Begin j_sk:=1; Ysk:= False;

repeat

if Sk_massiv[i_sk-j_sk] <> '#' then begin

itog:= Strtofloat(Sk_massiv[i_sk-j_sk]);

Sk_massiv[i_sk-j_sk]:= '#'; Ysk:= True;

end else j_sk:= j_sk+1;

until Ysk=True;

j_sk:=1; Ysk:= False;

repeat

if Sk_massiv[i_sk+j_sk] <> '#' then begin

itog:= itog-Strtofloat(Sk_massiv[i_sk+j_sk]);

Sk_massiv[i_sk]:= Floattostr(itog);

Sk_massiv[i_sk+j_sk]:= '#'; Ysk:= True;

end else j_sk:= j_sk+1;

until Ysk=True;

end; Ysk:= False;

end;

For i_sk:=0 to 100 do

Begin

Ysk:= False;

{-------------- Натуральныйлогарифм --------------}

if Sk_massiv[i_sk]= 'ln' then

Begin j_sk:=1; Ysk:= False;

repeat

if Sk_massiv[i_sk+j_sk] <> '#' then

begin

ch:= Strtofloat(Sk_massiv[i_sk+j_sk]);

If ch > 0 then