Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

pomoc oko Fortrana

[es] :: Ostali programski jezici :: pomoc oko Fortrana

[ Pregleda: 2257 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

milosch89
milosch89
student

Član broj: 164884
Poruke: 100
147.91.203.*

Sajt: nagradneigre.blog.rs


Profil

icon pomoc oko Fortrana12.01.2009. u 13:08 - pre 186 meseci
dali neko zna kako se ovo da uradim ovo?
izgleda jednostavno,al ja znam sustinu,znao bi da uradim u c,al ovaj Fortran stvarno ne mogu da razumem,nemogu da skapiram sintaksu i ona pravila,pa ako neko moz da mi pomogne.
tekst:
napisati ops¡ti potprogram, koji od glavnog programa preuzima celobrojnu kvadratnu matricu proizvoljnih dimenzija, prebrojava parne clanove i dodeljuje vrednost 1 svim ostalim clanovima.



unapred hvala.
http://nagradneigre.blog.rs/
http://topola.forum0.net/
 
Odgovor na temu

Goran Rakić
Beograd

Član broj: 999
Poruke: 3766

Sajt: blog.goranrakic.com


+125 Profil

icon Re: pomoc oko Fortrana12.01.2009. u 13:36 - pre 186 meseci
Hajde napisi u C-u program, pa ćemo red po red da ga prevedemo na fortran.
http://sr.libreoffice.org — slobodan kancelarijski paket, obrada teksta, tablice,
prezentacije, legalno bez troškova licenciranja
 
Odgovor na temu

digas
Luka Djigas

Član broj: 103788
Poruke: 13
*.adsl.net.t-com.hr.



Profil

icon Re: pomoc oko Fortrana13.01.2009. u 14:23 - pre 186 meseci
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]
 
Odgovor na temu

milosch89
milosch89
student

Član broj: 164884
Poruke: 100
212.62.51.*

Sajt: nagradneigre.blog.rs


Profil

icon Re: pomoc oko Fortrana18.01.2009. u 10:29 - pre 185 meseci
[quote]digas Jer, nisam razumio sto se trazi u zadatku ("prebrojava parne clanove" - koliko je parnih clanova ili ?)

da treba da prebroji parne clanove a svim koji nisu parni da dodeli vrednost jedan.......
http://nagradneigre.blog.rs/
http://topola.forum0.net/
 
Odgovor na temu

bventil
desp

Član broj: 67391
Poruke: 50
93.86.18.*

Sajt: www.geocities.com/bope999


+1 Profil

icon Re: pomoc oko Fortrana20.01.2009. u 10:51 - pre 185 meseci
subroutine pp(a,n) //ne secam se tacno kako se pise zaglavlje subroutine

do 1 i=1,n
do 2 j=1,n
if((a(i,j)/2)*2=a(i,j))then
s=s+1
else
a(i,j)=a(i,j)+1
endif
2 continue
1 continue (ili end do, zavisi od verzije fortrana)
 
Odgovor na temu

milosch89
milosch89
student

Član broj: 164884
Poruke: 100
147.91.203.*

Sajt: nagradneigre.blog.rs


Profil

icon Re: pomoc oko Fortrana22.01.2009. u 10:25 - pre 185 meseci
Citat:
bventil: subroutine pp(a,n) //ne secam se tacno kako se pise zaglavlje subroutine

do 1 i=1,n
do 2 j=1,n
if((a(i,j)/2)*2=a(i,j))then
s=s+1
else
a(i,j)=a(i,j)+1
endif
2 continue
1 continue (ili end do, zavisi od verzije fortrana)



hvala...
http://nagradneigre.blog.rs/
http://topola.forum0.net/
 
Odgovor na temu

[es] :: Ostali programski jezici :: pomoc oko Fortrana

[ Pregleda: 2257 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.