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

end else j_sk:= j_sk+1;

until Ysk=True;

Ysk:= False;

end;

end;

{-------------- ^ квадрат ---------------}

For i_sk:=0 to 100 do

Begin

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;

Tmp_st:= StrToInt(Sk_massiv[i_sk+1]);

ch:=itog;

For st:=2 to Tmp_st do

begin

itog:= itog*ch;

end;

Sk_massiv[i_sk]:= Floattostr(itog);

end;

end;

{-------------- Умножение / Деление ---------------}

For i_sk:=0 to 100 do

Begin