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

else

r:=m;

end;

{Сортировка бинарными вставками}

for i:=2 to n do

begin

r:=i;

l:=i;

while (l<r);

Begin

k:=(l+r) div 2;

if a[k]>a[i] then l:=k+1;

else r:=k;

end;

k:=r;

x:=a[i];

for m:=i downto k+1 do

a[m]:=a[m-1];

a[k]:=x;

end;

{ Метод Гауса }

uses crt;

const

n=2;

var

m : array[0..n,0..n+1] of real;

x : array[0..n] of real;

i,j,k:integer;

a,s:real;