10 lines
152 B
ObjectPascal
10 lines
152 B
ObjectPascal
|
uses NumLibABC;
|
|||
|
|
|
|||
|
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
var fun:real->real:=x->x*Sqr(x)-2*x-5;
|
|||
|
|
var oL:=new Fmin(fun,-1,1);
|
|||
|
|
Println(oL.x, oL.Value)
|
|||
|
|
end.
|