010J-K+1.N A(K.D=A(K.J/A(K.K) 10 E B)-)/A(K.X D0301=K+1,N D020J=k+1,N ACJ)-A(LJ-A(L,K)+ACKJ) 0 CONTINUE B(D=B0-ACKBCK) CON IF (ABS(A(N,N))+1.0.EQ.1.0)THEN 1=0 WRTE(,1Oo】 RETURN END IF X(N)=BOND/ACN.N) D0701=N-1.1.- T=00 CONTINUE X1》=BT)-T 70 CONTINUE 100 FORMAT(IX,'FAIL) ISO)=N 0150K=N.3.-1 F (S(K).NE.K)THEN X(S(K))-T END JF 150 CONTINUE RETURN END 六，创 求解下列方程组 0.2368+02471+0.2568x1+1.2671,=1.8471 0.19681+0.2071z4+1.21684+0.2271z.=1.7471 01582+1.1675a+0.1768+0.1871z4-1.6471 1.1161+0.1254+0.1397+0.1490x-1.5471