Предыдущая страница реферата | 2  3  4  5  6  7  8  9  10  11  12 | Следующая страница реферата

xx:=strtofloat(edt.Text);

edt.Lines.Delete(0);

setlength(kp,n,n);

for i:=0 to n-1 do for j:=0 to n-1 do kp[i,j]:=0;

for i:=0 to n-1 do kp[0,i]:=y[i];

for i:= 1 to n-1 do

   for j:=0 to n-i-1 do

      kp[i,j]:=kp[i-1,j+1]-kp[i-1,j];

for i:= 0 to n-1 do

   begin

      for j:=0 to n-1 do  edt.writer(' ',kp[i,j],0);

      edt.writer('',1);

   end;

edt.writer('',1);

h:=0.5;

t:=(xx-x[0])/h;

s:=y[0];

for i:=1 to n-1 do

   begin

      p:=1;

      for j:=0 to i-1 do p:=p*(t-j)/(j+1);

      s:=s+p*kp[i,0];

   end;

edt.writer('',s,1);;

end;

Рекомендуем скачать другие рефераты по теме: скачать доклад на тему, отчет по практике.





Предыдущая страница реферата | 2  3  4  5  6  7  8  9  10  11  12 | Следующая страница реферата