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

begin

ad:=Xm shr 3;

dx:=Xm and $6;

fx1:=dx*masFhx[ad];

fx1:=fx1 shr 5;

Fx:=masFx[ad]+fx1;

end;

var

masFx,masFhx:m;

masfxs,masfhxs,x:array[0..8] of real;

i,Xm,ad:word;

work,F,fxn,e,ev,em,fz:real;

gd,gm:integer;

xnext,xprev,y1next,y1prev:integer;

y2next,y2prev,y3next,y3prev:integer;

y4next,y4prev:integer;

begin

clrscr;

for i:=0 to 8 do begin

x[i]:=h*i;

masfxs[i]:= (exp(x[i])-exp(-x[i]))/2;

masfhxs[i]:= (exp(x[i])+exp(-x[i]))/2;

masFx[i]:=trunc(masfxs[i]*Mf);

masFhx[i]:=trunc(masfhxs[i]*Mfh);

end;

work:=0;

repeat

begin

Xm:=trunc(work*Mx);