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

Fortran95 , upisivanje u DAT fajl

[es] :: Ostali programski jezici :: Fortran95 , upisivanje u DAT fajl

[ Pregleda: 1678 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

vassqes
Beograd

Član broj: 15803
Poruke: 71
77.46.216.*



Profil

icon Fortran95 , upisivanje u DAT fajl30.03.2009. u 11:31 - pre 183 meseci
Napravio sam neki programcic u F95 koji treba da mi racuna nesto po nekim zadatim formulama.
problem je nastao kada to treba upisati u neki fajl kome ja dam neko ime na samom pocetku programa.
to izgleda ovako :


.
.
.
character :: izlaz
read*, izlaz
.
.
!nesto ovde racuna
.
.
open (1,file=izlaz, status='new')
write (1,*) .......
close (1)
.
.
.
to nece da mi radi, u opste ne napravi fajl sa rezultatima.



Ali, ako ne napravim foru da ja unosim ime izlaznog fajla, nego to smestim u sam program onda sve radi.
To otprilik izgleda ovako:

.
.
.
!ovde racuna

.
.

open (1,file='Pera.dat', status='new')
write (1,*) .......
close (1)

Kako u prvom slucaju da ga nateram da radi??
 
Odgovor na temu

digas
Luka Djigas

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



Profil

icon Re: Fortran95 , upisivanje u DAT fajl14.04.2009. u 14:16 - pre 183 meseci
Kratki primjer, mozda pomogne.

pozdrav,
Luka


Code:

!      Primjer programa koji ispisuje koordinate 10 tocaka u datoteku
!      proizvoljnog imena. Za:
!      http://www.elitesecurity.org/t359696-Fortran-upisivanje-DAT-fajl

      character(30) :: filename

      write(*,'(" Enter filename :")')
      read(*,'(a)')filename
      open(1, file=filename, status='replace')
      rewind(1)

      do i=1,10
        x = i*1.
        y = x**2
        write(1,'(f6.2,2x,f6.2)')x,y
      enddo
      close(1)

      end
 
Odgovor na temu

[es] :: Ostali programski jezici :: Fortran95 , upisivanje u DAT fajl

[ Pregleda: 1678 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

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