«Сандық әдістер»

program logranzh;

const n=4;

var i,q,j,k:integer;

x,yx,h,rx,pi1,pi2:real;

xi,yi:array[1..n] of real;

begin

x:=pi/12;

xi[1]:=pi/6;

xi[2]:=pi/4;

xi[3]:=pi/3;

xi[4]:=pi/2;

yx:=0;

begin

pi1:=1;

begin

pi1:=pi1*(x-xi[i]);

end;

yx:=yx+(pi1*sin(xi[j]))/((x-xi[j])*pi2);

write('yx=');

writeln(yx:2:6);

write('sin(pi/12)=');

writeln(sin(x):2:6);

write('ostatok=');

write(sin(x)-yx:1:6);

readln;

y=lg(x) функциясының мәндері 4-кестеде берілген, lg1001 мәнін табу керек.

3-ретті шектік айырымдар тұрақты бола бастағандықтан кестені толтыруды тоқтатамыз. Формулада n=3 деп аламыз. Q=0,1. x=1001. Ньютонның бірінші формуласын қолданамыз, себебі х-тің мәні кестенің бас жағында жатыр, сонда lg1001=3.00043417+0.5*10^-9 болатынын қалдық мүшенің формуласын қолдану арқылы анықтаймыз.

4-кесте . y=lg(x) функциясының мәндері және

X	Y
1000	3.0000000	43 214	-426	8
1010	3.0043214	42 788	-418	9
1020	3.0086002	42 370	-409	8
1030	3.0128372	41 961	-401
1040	3.0170333	41 560
1050	3.0211893