@Levox

Помогите написать лабу. Главное чтобы график был. Информацю могу подкинуть, чтобы не искали.

0

@Andretti

в чем задание-то? разьясни для начала, что от программы требуеться?

0

@Levox

Andretti, На форме должен находиться компонент Image. На нем на канве нарисован график функции. И кнопочка "Рассчитать". Еще на форму накинуть Memo1, в мемо при нажатии на кнопочку должны происходить расчеты (точне итерации, как показано на рисунке). И в конце когда программа выдала результаты в мемо, она должна показать где F(x)=0. Т.е точкой показать на графике.

0

@Levox

Вот Пример. Только он без графика.

Миниатюры

 

0

@SOTL

Золотое сечение


var
a,b,x,x1,x2,x3,xz,p1,p2,yz,Xmin,f1,f2,v1,v2,f3,fc,Fmin,eps,eps2,y1,y2:real;

function f(x:real):real;

begin

p1:=2-0.2*x;
p2:=0.1*x;
f:=(p1*p1)+(p2*p2)-(2*p1*p2*Cos(0.611));
end;

begin

write ('vvedite a= ');
readln (a);
write ('vvedite b= ');
readln (b);
write ('vvedite eps= ');
readln (eps);

x1:=b-0.618*(b-a);
x2:=a+b-x1;
y1:=f(x1);
y2:=f(x2);

repeat



if y1<y2 then begin
b:=x2;
x2:=x1;
y2:=y1;
x1:=a+0.382*(b-a);
y1:=f(x1);
end
else begin
a:=x1;
x1:=x2;
y1:=y2;
x2:=a+0.618*(b-a);
y2:=f(x2);
end;
until (b-a)<=eps;
xz:=(a+b)/2;
yz:=f(xz);
writeln ('xz= ',xz:4:6 , 'yz= ',yz:4:6);
readln;
end.

Добавлено через 47 секунд
var
a,b,x,x1,x2,x3,xz,p1,p2,yz,Xmin,f1,f2,v1,v2,f3,fc,Fmin,eps,eps2,y1,y2:real;

function f(x:real):real;

begin

p1:=2-0.2*x;
p2:=0.1*x;
f:=(p1*p1)+(p2*p2)-(2*p1*p2*Cos(0.611));
end;

begin

write ('vvedite a= ');
readln (a);
write ('vvedite b= ');
readln (b);
write ('vvedite eps= ');
readln (eps);

x1:=b-0.618*(b-a);
x2:=a+b-x1;
y1:=f(x1);
y2:=f(x2);

repeat



if y1<y2 then begin
b:=x2;
x2:=x1;
y2:=y1;
x1:=a+0.382*(b-a);
y1:=f(x1);
end
else begin
a:=x1;
x1:=x2;
y1:=y2;
x2:=a+0.618*(b-a);
y2:=f(x2);
end;
until (b-a)<=eps;
xz:=(a+b)/2;
yz:=f(xz);
writeln ('xz= ',xz:4:6 , 'yz= ',yz:4:6);
readln;
end.

0

@Levox

SOTL, И что это???

0

@fhntv24

ПИШИТЕ ВСЕ В СКОБКИ ДЕЛФИ Т.Е. [DELPHI"]ВАШ КОД[/DELPHI"] без " в скобках

0

@Levox

Количество переменных не совпадает, с количеством описанном в коде)

0

@SOTL

что это?ты читать умеешь?написано МЕТОД ЗОЛОТОГО СЕЧЕНИЯ.
и что?тебе мешает удалить лишние???

Золотое сечение

вот посомтри как работает прога и для чего используется

http://rghost.ru/37487231

1