Logare

Utilizator:
Parola:
Retine-ma
Inregistrare

Ultimele noutăţi

Concurs sef de sectie
La prima etapă a concursului pentru ocuparea funcţiei şef de secţie au fost admişi candidaţii: Popovici Tatiana, Florean Mihai şi Edu Inga.Pe data de 19 septembrie 2017 ora 14 10 în sala de lectură a colegiului va avea loc etapa a 2-a - Interviul..

Cramer
Inapoi la lista cursurilor

  const nmax=10;

type mat=array[1..nmax,1..nmax] of real;

Var a:mat;

b,sol:array[1..nmax] of real;

P,n:integer;

De:real;

 

function det(var x:mat; t:integer) : real;

var

i, j, k, l : integer;

s : real;

minor : mat;

begin

if t=1 then det:=x[1,1] {caz elementar}

else

    begin

        s:=0;

        for k:=1 to t do begin

                for i:=1 to t-1 do

                    for j:=1 to k-1 do

                        minor[i,j]:=x[i+1,j];

                for i:=1 to t-1 do

                    for j:=k to t-1 do

                        minor[i,j]:=x[i+1,j+1];

                    if odd(k)

                        then s:=s+x[1,k]*det(minor, t-1)

                    else s:=s-x[1,k]*det(minor, t-1);

           end;

        det:=s;

    end;

end;

Function schimb(x:mat;t,l:integer):real;

Var i :integer;

Begin

for i:=1 to t do x[i,l]:=b[i];

                 schimb:=det(x,t);

End;

Begin

n:=3;

a[1,1]:=3;                a[1,2]:=2;                a[1,3]:=-1;                              b[1]:=7;

a[2,1]:=-1;              a[2,2]:=1;                a[2,3]:=1;                               b[2]:=4;

a[3,1]:=1;                a[3,2]:=-6;  a[3,3]:=2;            b[3]:=-13;

De:=det(a,n);

If De<>0 then begin

                for p:=1 to n do sol[p]:= schimb (a,n,p)/de;

                 for p:=1 to n do writeln('x[',p,']= ',sol[p]:3:2); end;

End.

ComentariiReinoieste comentariile

Logare

Utilizator:
Parola:
Retine-ma
Inregistrare
Twitter   facebook facebook Mail.ru