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

fxn:=(exp(work)-exp(-work))/2;

e:=fxn-F/Mf;

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

ev:=fz-F/Mf;

em:=e-ev;

write(' ',work:5:4,' ',Xm:2,' ',fxn:4:4,' ',F:4:0,' ');

writeln(e:4:4,' ',ev:4:4,' ',em:4:4);

work:=work+h/4;

end;

until work>0.5;

writeln(' x X f(x) F(x) E Ev Em');

readln;

gd:=detect;

initgraph(gd,gm,'c:\language\bp\bgi');

cleardevice;

floodfill (0,0,white);

setcolor(black);

line(0,0,0,480);

line(0,240,640,240);

work:=0;

xnext:=1;

xprev:=0;

y2next:=240;

y1prev:=240-trunc((exp(work)-exp(-work))*120);y2prev:=240;

y3prev:=240;y4prev:=240;

repeat

begin

work:=work+h/4;

fxn:= (exp(work)-exp(-work))/2;