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

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;

begin

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

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





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