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

else Begin Gl_massiv[i+1]:= '#'; Y:= True; end;

end;

Until Y=True;

Y:= False;

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

For i_sk:=0 to 100 do

Begin

Ysk:= False;

{-------------- Косинус---------------}

if Sk_massiv [i_sk]= 'cos' then

Begin j_sk:=1; Ysk:= False;

repeat

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

begin

itog:= cos(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;

Ysk:= False;

end;

{-------------- Синус ---------------}

if Sk_massiv[i_sk]= 'sin' then

Begin j_sk:=1; Ysk:= False;

repeat

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

begin

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

Sk_massiv[i_sk]:= Floattostr(itog);