jbobi21:
Treba mi pomoc oko fortrana. Moram resiti nekoliko zadataka, a veoma tesko se snalazim.
Hvala svima unapred.
Zadaci su rijeseni (fortran 90/95), najbolje sto sam ih uspio shvatiti, prema slijedecem tekstu.
1. Parni prirodni brojevi zakljucno sa 200 da se postave po 20 u redu.
Moje shvacanje: ispisi sve parne prirodne brojeve manje od 200. U jednom redu ispisi po 20 brojeva.
Code:
dimension m(100)
do i=1,100
m(i) = i*2
enddo
write(*,'(15x," Tablica parnih brojeva manjih od 100 ")')
write(*,'(15x," --------------------------------------------")')
do i=1,100,20
write(*,'(20i4)')(m(j),j=i,i+19)
enddo
end
2. Da se formira i postavi matrica M(10,10) čiji element je glavna dijagonala sa 2, a svi ostali sa 1.
Moje shvacanje: Ispisi matricu M(10,10) koja ima sve elemente jednake 1, osim na glavnoj dijagonali gdje su jednaki 2.
Code:
dimension m(10,10)
m=1
do i=1,10
m(i,i) = 2
write(*,'(10i3)')(m(i,j),j=1,10)
enddo
end
3. Dati su 100 celi brojevi. Da se postave koji su od njih veći od 50.
Moje shvacanje: Program ucitava 10 cijelih brojeva (10 umjesto 100, da korisnik ne poludi od dosade upisujuci ih, no princip je isti), gleda koji
su veci od 50 i te ispisuje.
Code:
dimension m(10)
do i=1,10
write(*,'(" Upisi ",i3,". broj: ",\)')i
read(*,*)m(i)
enddo
write(*,'(/," Cijeli brojevi veci od 50 su: ")')
do i=1,10
if (m(i).gt.50) then
write(*,'(i3,". broj: ",i10)')i,m(i)
endif
enddo
end
5. Dati su 500 realnih brojeva. Da se postave oni koji su manji od 100.
Ostavlja se citatelju za vjezbu. Isti princip kao i prethodni.
4. Da se pročita realna matrica A(10,10). Da se premesti i postavi zbir na elemente na prvi red.
Nisam shvatio sto se trazi; osim da se ucitava matrica.