Реферат: Вычисление элементарных функций

setcolor(green);

line(xprev,y1prev,xnext,y1next);

y1prev:=y1next;

Xm:=trunc(work*Mx);

F:=Fx(masFx,masFhx,Xm,ad);

e:=fxn-F/Mf;

y2next:=240-trunc(e*240);

setcolor(cyan);

line(xprev,y2prev,xnext,y2next);

y2prev:=y2next;

fz:=masfxs[ad]+(work-x[ad])*masfhxs[ad];

ev:=fz-F/Mf;

y3next:=240-trunc(ev*240);

setcolor(magenta);

line(xprev,y3prev,xnext,y3next);

y3prev:=y3next;

em:=e-ev;

y4next:=240-trunc(em*240);

setcolor(lightgray);

line(xprev,y4prev,xnext,y4next);

y4prev:=y4next;

xprev:=xnext;

xnext:=xnext+trunc(64*work);

end;

until work=0.5;

setcolor(green);

outtextxy(0,470,'f(x)');

setcolor(cyan);

outtextxy(40,470,'E');