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

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

Sk_massiv[i_sk]:= Floattostr(itog);

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

end else Begin

Showmessage('Натуральныйлогарифмменьшенуля');

Sk_massiv[i_sk]:='0';

Ysk:= True;

end;

end else j_sk:= j_sk+1;

until Ysk=True;

Ysk:= False;

end;

{-------------- Коренькв.--------------}

if Sk_massiv[i_sk]= 'sqrt' 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

Begin

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

Sk_massiv[i_sk]:= Floattostr(itog);

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

end else Begin

Showmessage('Значение квадратного корня меньше нуля');

Sk_massiv[i_sk]:='0';

Ysk:= True;

end;