level 1
xudehou0704
楼主
do i=1,m*n-1
do k=1,m*n-i
do j=1,m*n
Array1(i+k,j)=-Array(i,j)*1(Array(i+k,i)/Array1(i,i)+Array1(i+k,j)
endo
endo
endo
2019年05月14日 02点05分
1
do k=1,m*n-i
do j=1,m*n
Array1(i+k,j)=-Array(i,j)*1(Array(i+k,i)/Array1(i,i)+Array1(i+k,j)
endo
endo
endo