 |
Функция :: Производная
uses crt,mat;
type
float=extended;
const
ch=0.001;
function y (x:float):float;
begin
y:=(sin(16*x))/(3*x)+4*sqr(arctan(1))+kor(log(1,2),2);
end;
var
xn,xk,x,dx,dy:float;
g:text;
begin
clrscr;
xn:=-10+ch;
xk:=10-ch;
x:=xn;
dx:=ch;
assign(g,'C:\2\GRAF1_3.DAT');
rewrite(g);
while x
begin
dy:=(y(x+ch)-y(x))/dx;
writeln(g,x:0:3,' ',dy:0:3);
x:=x+ch;
end;
close(g);
end.
|
