здравствуйте! помогите пожалуйста вот с чем:
мне надо написать программу на фортране для сравнения рангов нерасширеной и расширеной матрицы.
пока написано что-то ,что должно вычислять ранг нерасширеной матрицы. у меня большое подозрение, что написана фигня, но большая надежда что вы подскажете верное направление.
program
dimension A(100,100), b(100),
real minor,rang
print*, 'vvedite kolychestvo uravneniy'
read*, n
print*, 'vvedite koeficienty uravnenyy'
do i=1,n
read*, (a(i,j), j=1,m)
end do
print*, 'vvedite stolbets svobodnyx chlenov'
read*, (b(i), i=1,n)
if (A(1,1).ne.0) then
do i=1,n
do j=1,m
minor=1
minor=A(i,j)*a(i+1,j+1)-a(i,j+1)*a(i+1,j)
rang=minor
if (minor.eq.0)then
Rang=minor (i-1,j-1)
end if
exit
end do
end do
end if
end program