Kao sto je milosch89 rekao, ajd napisi u c-u, pa bumo u fortranu to napravili. Jer, nisam razumio sto se trazi u zadatku ("prebrojava parne clanove" - koliko je parnih clanova ili ?)
Ucitat ces matricu ovako:
Code:
dimension a(10,10)
open(unit=11, file='matrica.dat', status='old')
rewind(1)
write(*,'(2x,"Matrica je reda : ")')
read(*,*)n
do i=1,n
read(1,*)(a(i,j),j=1,n)
end do
close(1)
end
Btw, svaka matrica je kvadratna (vektori su a(n,1)). Moze bit donja il gornja trokutasta, dijagonalno dominantna etc. etc. ali opet su kvadratne gledano sa stajalista broja clanova.
Izmjena 1: A pardon, tek sad vidjeh da ovo treba ici u subrutinu. No dobro, to bumo poslije promijenili.
[Ovu poruku je menjao Aleksandar Ružičić dana 18.01.2009. u 11:46 GMT+1]