Правила форума
Прочтите прежде чем задавать вопрос!
вобщем решение линейного уравнения методом крамера=))
прога есть все работает, только вот разобраться с ней никак не могу...
помогите люди добрые, объясните пожалуйста что пошагово в ней (в процедуре) творится (по-русски)! (как можно подробнее)
Код
{ рекурентная }
function opr(mt:mas4x4;nm:integer):real;
var
n,m,d:integer;{ счетчики }
s:real;
m2:mas4x4;
begin
if nm=2 then begin
s:=mt[1,1]*mt[2,2]-mt[1,2]*mt[2,1];
end else begin
s:=0;
for d:=1 to nm do begin
m2:=mt;
for n:=d to nm do
for m:=1 to nm-1 do m2[m,n]:=m2[m,n+1];
if (d mod 2 =nm mod 2) then s:=s+mt[nm,d]*opr(m2,nm-1)
else s:=s-mt[nm,d]*opr(m2,nm-1);
end;
end;
opr:=s;
end;
function opr(mt:mas4x4;nm:integer):real;
var
n,m,d:integer;{ счетчики }
s:real;
m2:mas4x4;
begin
if nm=2 then begin
s:=mt[1,1]*mt[2,2]-mt[1,2]*mt[2,1];
end else begin
s:=0;
for d:=1 to nm do begin
m2:=mt;
for n:=d to nm do
for m:=1 to nm-1 do m2[m,n]:=m2[m,n+1];
if (d mod 2 =nm mod 2) then s:=s+mt[nm,d]*opr(m2,nm-1)
else s:=s-mt[nm,d]*opr(m2,nm-1);
end;
end;
opr:=s;
end;
КОД В ТЕГИ!
Oleg_Z
Плюс к этому, good3p, то что вопрос "связан с матрицей" еще не значит, что его можно кидать в любой другой вопрос на эту же тему.
Volvo
Сообщение отредактировано: volvo -
