Шпаргалка: Шпаргалка по численным методам

for j:=0 to n do

for i:=0 to n do

m[j,i]:=random(4)+1;

For k:=0 to n do

begin

a:=m[k,k];

for i:=0 to n+1 do m[k,i]:=m[k,i]/a;

for j:=k to n-1 do

begin

a:=m[j+1,k];

for i:= 0 to n+1 do m[j+1,i]:=m[j+1,i]-m[k,i]*a;

end;

end;

for k:=n downto 0 do

begin

x[k]:=m[k,n+1];

for j:=n-1 downto k do

x[k]:=x[k]-m[k,j+1]*x[j+1];

end;

end.

{ Дифференцирование }

const

d=0.0001;

x=2;

{y=x*x+2}

var

f,dx:real;

begin

dx:=x+d;