10 lines
168 B
ObjectPascal
10 lines
168 B
ObjectPascal
|
uses NumLibABC;
|
|||
|
|
|
|||
|
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
var f:real->real := x->x=0?1.0:sin(x)/x;
|
|||
|
|
var oL := new Quanc8(f,0,2,1e-7,0);
|
|||
|
|
Writeln(oL.Value);
|
|||
|
|
end.
|