метод золотого сечения выдает ошибку...

[Skif]

а в чем дело разобратся не смог, вроде все нормально...
всего 6 одинаковых ошибок, как я понял - не правильно обьявлены переменные, ошибки указал в каментах напротив строк на которые ссылается делфя:

procedure TForm1.Button2Click(Sender: TObject);

function F(x:Extended):Extended;
begin
F:=x*x*x-2*x*x+x-1;
end;

Var
a:Extended;
b:Extended;
r1:Extended;
r2:Extended;
E:Extended;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
E:=StrToFloat(Edit3.Text);
r1:=b-(b-a)*0.618;
r2:=a+(b-a)*0.618;
Begin
if Abs(b-a)>E then
begin
if F(r1)>F(r2) then
begin
a:=r1; {Value assigned to 'a' never used}
r1:=r2; {Value assigned to 'r1' never used}
r2:=a-(b-a)*0.618 {Value assigned to 'r2' never used}
end
else
begin
b:=r2; {Value assigned to 'b' never used}
r2:=r1; {Value assigned to 'r2' never used}
r1:=b-(b-a)*0.618 {Value assigned to 'r1' never used}
end;
end
else
begin
Edit4.Text:=FloatToStr(a);
Edit5.Text:=FloatToStr(b)
end;
End;
end;

end.

[Alar]

Откомпилировал, всё работает. значения в едит 4 и едит5 меняются.

[Skif]

да? а ошибки выдает, типа тех что я указал? а делфи какого года?

[Alar]

Сообщение от Skif

да? а ошибки выдает, типа тех что я указал? а делфи какого года?

Delphi 7, всё прекрасно работает. кинул 2 кнопки, 5 едитов, везде менял значение, чего-то считает

[Skif]

у меня тож 7-я делфя, мож глюк какой? ставлю а=0, б=2, Е=0,5 и не считает, но все меняется если Е=5...
Файл тож откомпилировал, без результатно...

[Virtson]

Value assigned to 'r2' never used

вобще то это но ошибка , а Warning - предупреждение.

у тебя идет двойное ветвление, и Editы меняются только в случае двойного перехода по веткам else ..

вообще алгоритм некорретно реализован. переменные r1 и r2 в любом случае нигде (дальше по коду) не используются, т.к. они локальные.

'вот записали мы в них значения, а зачем ?' - дословный перевод сообщения Delphi

[Skif]

2 Virtson
прошу обратить внимание:
если б-а по модулю больше чем Е, то сравнивается Ф1 и Ф2 и в зависимости от того что из них больше и присваиваются значения переменным а и б и т.п.
иначе меняются Editы(однократный переход по else, в 1-вом ветвлении)

ты поясни почему все объявленные переменные работают после 1-го бегина, а в ветвлениях неработают, в чем неккоректность? уточни пожалуйста...

[Virtson]

a:=r1; {Value assigned to 'a' never used}
r1:=r2; {Value assigned to 'r1' never used}
r2:=a-(b-a)*0.618 {Value assigned to 'r2' never used}
end;

и

b:=r2; {Value assigned to 'b' never used}
r2:=r1; {Value assigned to 'r2' never used}
r1:=b-(b-a)*0.618 {Value assigned to 'r1' never used}
end;

именно присваешь и далее идет end - все строки помеченны Delphi не зря:

"Value assigned to 'a' never used" =
"значение, присвоенное переменной 'а' нигде больше не используется"..
я не знаю, как тут еще сказать

если сейчас тебя устраивает работа алгоритма, можешь выкинуть рассмотренные строки кода