gauss simple diagrama de flujo

Inicio

Leer A[]

Leer B[]

X=[A,B]

[MX,NX]=tamaño(X)

P=1

P<=MX-1

P++

Falso

PIVO=X(P,P)

i=P++

Verdadero

i<=MX

Falso

i++

PFILA=X(i,P)

K=1

K<=NX

Falso

X(i,K)=X(i,K)-(X(P,K)/PIVO)*PFILA

Verdadero

K++

Soluc=[]

Soluc(MX)=X(MX,NX)/X(MX,NX-1)

i=MX-1

i>=1

i--

Falso

S=X(i,NX)

J=MX

Verdadero

J>=1

J--

S=S-X(i,J)*Soluc(J)

Verdadero

Soluc(i)=S

imprimir Soluc

Fin

Falso