2楼: Originally posted by 宋文钤 at 2015-10-28 07:05:41
5370，你自己写的E=A(i,0)。。。。。
0和Q（q）还分不出来？大小写都不像啊？

3楼: Originally posted by 宋文钤 at 2015-10-28 07:09:45
还有A（）是什么？如果是函数，请说明原型或者作用，要不然谁知道呢

For I=0 to N-1
        P=I
        Q=0
        E=A(I,0)
        FOR J=I TO (N-1)
                FOR K=0 TO (N-1)
                        IF ABS(A(J,K))<=ABS(E) THEN goto NE
                        E=A(J,K)
                        Q=K
                        P=J
NE:                NEXT K
        NEXT J
        IF ABS(E)>0.0000000001 THEN goto SE
        PRINT "NO UNIQUE SOLUTION"
        STOP
SE:        IF P=I THEN goto FO
        FOR K=0 TO N
                S(K)=A(I,K)
                A(I,K)=A(P,K)
                A(P,K)=S(K)
        NEXT K
FO:        FOT J=0 TO N-1
                IF J=I THEN goto NEJ
                IF A(J,Q)=0 THEN goto NEJ
                R=A(J,Q)/A(I,Q)
                FOR K=0 TO N
                        A(J,K)=A(J,K)-A(I,K)*R
                NEXT K
NEJ:        NEXT J
        M(I)=Q
NEXT I

8楼: Originally posted by jjdg at 2015-10-28 20:43:21
你是用VB6吗？给我代码看看