kollhma Fortran

[SRV_]

Den exw asxolh8ei akoma alla 8elhsa na dokimasw mia efarmogh giati sto mellon skopeuw na ergastw me fortran.Omws den katafera na ektelesw to programma.

sygkekrimena prospa8hsa auto edw http://www.engin.umd.umich.edu/CIS/course.des/cis400/fortran/Fortran_Example2.html

 

rwtaw kati diadikastiko.anoigw to txt keimeno,bazw to parapanw kai meta ti kanw?build?ekei den bgazei kanena la8os,alla den mporei meta na kanei compile.gnwrizei kapoios ti prepei na akolou8hsw gia na ektelestei to programma?

[vagpap]

Program Notes

 

This program has NOT been tested due to the inability to locate the necessary compiler. It is posted here just to give you an example of

what Fortran source code looks like. Compare it to the other example listed to see the syntactic differences that exist in the language.

 

 

 

Προφανώς για αυτό δεν δουλεύει. Γιατί δεν ξεκινάς από την αρχή? HelloWorld, basic input/output, arrays, basic arithmetic functions κλπ...

[SRV_]

dhladh pws akribws?uparxei kanena paradeigma?

[vagpap]

Ξεκίνα από εδώ... και καλή αρχή!

http://gershwin.ens.fr/vdaniel/Doc-Locale/Langages-Program-Scientific/Fortran/Tutorial/

[SRV_]

as poume oti exoume grapsei ena programma se eggrafo ths fortran pou einai txt.to swzoume etsi kai meta to douleuoyme xrhsimopoiwntas tis entoles?h kanoume kati wste na metatrapei prwta se kati allo?ekei exw problhma,sthn diadikasia.

otan sto txt arxeio kanw build,as poume bgazei mhden la8h.omws den mporw na proxwrhsw.

[Trakman]

Το πρόγραμμα δεν το γράφεις σε txt. Το γράφεις σε .f90 Δοκίμασε το εξής πολύ απλό:

 

PROGRAM Askisi_1

! ΠΡΟΓΡΑΜΜΑ ΥΠΟΛΟΓΙΣΜΟΥ ΕΠΙΦΑΝΕΙΑΣ ΚΑΙ ΠΕΡΙΦΕΡΕΙΑΣ ΚΥΚΛΙΚΟΥ ΔΙΣΚΟΥ.

IMPLICIT NONE

!ΑΡΧΙΚΕΣ ΤΙΜΕΣ.

REAL ::R,PI,AREA,PERIMETER

PI=3.14;R=2.9

AREA=PI*R**2

PERIMETER=2*PI*R

PRINT *,"Area=:",AREA," perimeter:",PERIMETER

END PROGRAM Askisi_1

 

Μόλις το γράψεις σε αρχείο .f90 κάνεις BUILD και μετά EXECUTE για να πάρεις αποτελέσματα.

[SRV_]

swsta,alla pws anoigeis ena arxeio f90?egw dhmiourghsa ena arxeio kai tou ebala thn epektash f90 kai leitourghse.omws den uparxei kai allos tropos?

pantws to programma pou mou edwses,opws kai kapoia brhka apo to diadiktuo,den ta ektelei giati briskei panta ena la8os.kai den blepw tipota.

grafei error executing df.exe.einai o compile driver ths fortran.

[Trakman]

Ποια Fortran έχεις; Το λάθος αυτό στο βγάζει γιατί κατά τη μετάφραση δε βρίσκει το αρχείο. Πρώτα φτιάξε ένα φάκελο στα Documents and Settings με το όνομα Fortran. Μετά άνοιξε την Fortran και μετά πάνω αριστερά επιλέγεις File,New,Fortran Free Format Source File. Δίνεις ό,τι όνομα θέλεις αλλά με αγγλικούς χαρακτήρες, και επιλέγεις Location τον φάκελο Fortran που έφτιαξες. Μετά είσαι έτοιμος να γράψεις το πρόγραμμα. Γράψε αυτό που σου έδωσα που είναι σίγουρα σωστό. Κάνε Build και μετά Execute να πάρεις αποτελέσματα.

[SRV_]

exw thn fortran gia windows.developer studio.einai palia ekdosh alla leitourgouse mia xara apo oti kserw.otan anoigw to developer studio,giati se auto ginetai h olh istoria,to new anoigei ena text keimeno opws eixa ksanapei.

edit:to free format source file to brhka.gia pio prin,isws eftaige oti to arxeio pou eixa ftiaksei htan se directory me ellhnika grammata.to programma trexei.euxaristw.an prokupsei tipota 8a enhmerwsw.gnwrizeis kanena kalo biblio gia fortran?

[Trakman]

Το κορυφαίο ελληνικό βιβλίο για μια πρώτη εισαγωγή είναι το "Προγραμματισμός FORTRAN 90/95 για Επιστήμονες & Μηχανικούς", των Ματαρά και Κουτελιέρη, εκδόσεις Τζιόλα, βλ:

 

http://www.papasotiriou.gr/product.gbook.asp?pfid=483816&prid=172241&deid=0

[ntipouan]

Wow, δεν το πίστευα πως θα έβρισκα κανέναν εδώ μέσα που να ασχολείται με την Fortran.

 

Λοιπόν, προσωπικά με βολεύει να εργάζομαι σε Linux περιβάλλον όταν γράφω κώδικα (Fortran /C).

 

Σε αυτό το περιβάλλον λοιπόν, γράφεις σε ένα αρχείο τον κώδικα, πχ το "hello world" για Fortran77 είναι:

 

!234567

______program hello

 

______print*,"Hello world !"

______stop

______end

 

(προσοχή... οι εντολές αρχίζουν από την 7η στήλη και συνεχίζονται μέχρι και την 72η)

 

Το αρχείο (στην Fortran77) το αποθηκεύεις με κατάληξη *.f

Στη συνέχεια κάνεις compile με τον g77:

 

g77 arxeio.f

 

Και τρέχεις το εκτελέσιμο "a.out" που δημιουργείται :

 

./a.out

 

και έτσι βλέπεις στην γραμμή εντολών το αναμενόμενο:

 

Hello world !

 

Για windows θα σου πρότεινα να χρησιμοποιήσεις το Cygwin, που είναι εξομοιωτής Unix (από ότι κατάλαβα) και έχει τον g77 compiler καθώς και τον Vi text editor (στην γραμμή εντολών όλα αυτά).

 

Καλή συνέχεια!

 

υγ: μπορείς να δεις και εδώ: http://www.edu.physics.uoc.gr/~ph151/

[SRV_]

Oποιος έχει την Visual Fortran ας δοκιμάσει αν θέλει το παρακάτω πρόγραμμα και να μου πει αν έτρεξε.Εμενα μου παρουσιασε προβλημα

 

! Ypologismos sunarthshs

IMPLICIT NONE

REAL:,A ! ORISMOS TON METABLHTWN X KAI A

OPEN(8,FILE='INP.TXT')

10 READ (8,*)X

IF(X==0) STOP 'BRETHIKE MHDENIKH TIMH'

IF(X>0.AND.X<=16.) &

& A=4.5*X**2+8.*X**0.85-19.*SQRT(X)

IF(X>16) A=6.*X**0.85-18.5*X**3-SQRT(X)

IF(X<0) A=9.81*X**2+9.*X-8.55*X**3

WRITE(*,*) 'X=',X,'A=',A

GO TO 10

END