Esercizi fortran 90

nyx1
Ciao a tutti!
Inizio col dire che ci capisco poco o niente e che quindi avendo trovato un esercizio già svolto da un mio collega vorrei qualche spiegazione per svolgere gli esercizi di questo tipo! Spero che qualcuno mi aiuti!
Scrivere un programma che, dopo aver letto una matrice quadrata di
N × N reali, verifichi che ogni elemento della diagonale sia principale
sia maggiore o uguale al resto dei numeri della riga corrispondente.

program diagonale_maggiore_riga
implicit none
real,dimension(100;100)::a
integer::i,j,n,somma
write(*,*)"inserisci l'ordine della matrice"
read(*,*) n
do i=1,n
do j=1,n
write(*,*)"inserisci l'elemento di posto",i,j
read(*,*) a(i,j)
end do
end do
i=1
do
somma=0
do j=1,n
somma=somma+a(i,j)
end do
if ((i.eq.n).or.(a(i,i).lt.(somma-(i,i))) exit
i=i+1
end do
if ((i.eq.n).or.(a(i,i).ge.(somma-a(i,i))))then
write(*,*)'la matrice soddisfa la condizione'
else
write(*,*)'la matrice non soddisfa la condizione in particolare alla riga',i
end if
end program
grazie mille!!!

Risposte
apatriarca
Non riesco a capire che genere di aiuto stai chiedendo.

nyx1
vorrei sapere come fare ad impostare esercizi del genere...qualche spiegazione anche teorica....
sono alle prime armi e nn riesco a risolvere alcun esercizio...

apatriarca
Non è che ci sia un metodo per risolvere questi esercizi se non imparando a ragionare nel modo corretto e la sintassi del linguaggio. Se hai problemi con questi esercizi parti da qualcosa di più semplice. Se ti chiedessi ad esempio di scrivere un programma che legge un numero da tastiera e dice se quel numero è maggiore o minore di 0, sapresti risolverlo?

Rispondi
Per rispondere a questa discussione devi prima effettuare il login.