Курсовая работа: Метод Золотого сечения на 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;

{--------------------- Деление ----------------}

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