Fortran Treba neko da mi objasni par stvari hitno!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Imam kolokvijum i radimo u fortranu... znaci naj starijem prog. jezuku strasno, ali nema veze. Dakle ovako stoje stvari od 360studenta bukvalno niko nezna nista jer se sve radi na comp-u a pola od njih i vise kucaju ekstenzije .ime i prezime lol

Imamo zadatak recimo:

Formirati i prikazati kvadratnu matricu reda n=5 ciji su clanovi na glavnoj dijagonali i iznad nje jednaki 0,a ostali 1.

Ja zadatak znam kako ide. tj. imam resenje.

Program matrica dimension k(5,5) do i=1,5 do j=1,5 k(i,j)=1 else K(i,j)=0 end if end do end do write(*,10)((k(i,j),j=1.5),i=1.5) 10 (format(5i4) end


Ali mi nije jasno odakle ovo 1.5 , 10, sta ove komande znace k,do zagrade ovo 10 (format(5i4) nista mi nije u potpunosti tacno jer asistenti nece da objasne nista....

Ako moze neko da mi objasni makar neku osnovu oko toga ostalo cu lako ukapirati.

Hvala

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

mislim da ti nije dobro rešenje nedostaje if tu negde u sredini

Program matrica dimension k(5,5) do i=1,5  do j=1,5     if (j .LT. i ) then       k(i,j)=1     else       k(i,j)=0     end if  end do end do write(*,10)((k(i,j),j=1.5),i=1.5) 10 (format(5i4) end

i pazi na mala i velika slova
nisam siguran za write foirmatiranje kako ide
http://www.tat.physik.uni-tuebingen.de/~kley/lehre/ftn77/tutorial/index.html

u write(*,10) kada se unese label on traži format string u toj liniji programa
j=1.5 mislim da štampa niz iz write naredbi

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

A da hvali if..

jel se to podrazumeva da uvek moze da bude write(*,10) u ovom slucaju jer su zadaci istog tipa samo sa drugim brojkama po negde.
A sta je sa ovim recimo (k) i u nekim zadacima se isto spominje (ge,lt,,le,eq) a neznam sta to znaci... fakticki moracu da naucim napamet osnovu i da menjam brojke

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ceva :: i u nekim zadacima se isto spominje (ge,lt,,le,eq) a neznam sta to znaci

Vece, manje, manje ili jednako, vece ili jednako.

Ti si bas izostajao sa casova

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ma nisam izostajao, nego prof. Napise ceo program u wordu i prikaze na projektor i samo prepisemo, i to je to. Cak nece ni da objasni gde je greska ako neko ima. Strasno

Moracu da strebam ovako lakse mi je

I sad recimo kako bi izgledao ovakav program jel moze neko da mi objasni ?

Formirati i prikazati kvadratnu matricu reda n=5 ciji su clanovi na sporednoj dijagonali i ispod nje jednaki 0, a ostali su 1.
?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ja ne mogu da ti pomognem. Ima vec 12 godina od kada sam radio te zadatke

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

error FOR3852: syntax error detected between ) and J

Citat:program matrica
dimension k(5,5)
i=1.5
j=1.5
if(i+j.eq.6)then
k(i,j)=1
else
k(i,j)=0
end if
end
write(*,10)k(i,j)j=1.5)i=1.5)
10 format(5i5)
end

Taj error uvek dobijem kad odkucam ovaj program.... Nista mi nije jasno gde moze da bude greska... Jel ima nekog resenja ljudi ?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Citat:write(*,10)k(i,j)j=1.5)i=1.5)
Mislim da bi trebao da središ zagrade koje sam boldovao.
Iskreno, ni mene nije previše zanimao fortran na predavanjima, bio sam više naklonjen C-u.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

To sam i mislio ali ne znam kako

Citat: program matrica
dimension k(5,5)
i=1.5
j=1.5
if(i+j.eq.6)then
k(i,j)=1
else
k(i,j)=0
write(*,10)k(j,i),j=1.5),i=1.5)
10 format(5i5)
end if
end

druga greska glasi: rror FOR3852: syntax error detected between 'j=' and 1.5

koja mi opet nije jasna ...

Konacno mislim da sam uspeo ali ustvari nisam
Citat: program matrica
dimension k(5,5)
i=1.5
j=1.5
if(i+j.eq.6)then
k(i,j)=1
else
k(i,j)=0
write(*,10)k(j,i)
j=1.5
i=1.5
10 format(5i5)
end if
end
bez gresaka. Ali kad pokrenem program samo mi kaze 0 pres any key to continue ...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

if(i+j.eq.6)then
mislim da bi moralo da bude u zagradi pre logičke operacije
if((i+j).eq.6)then

(u suštini i if je numerički i proverava da li je rezultat -1 , i zato ono gore prolazi ,tako nekako....)