Πρόγραμμα ΦΟΡΤΡΑΝ 77

[xristos_metal]

Καλησπερα ειναι το πρωτο μου ποστ και θα ηθελα μια βοηθεια ωσον αφορα το παρακατω προγραμμα.Οι προτασεις ειναι σωστες απλα δε μπορω να τις βαλω σε σειρα.Αν καποιος μπορει να βοηθησει θα το εκτιμουσα.

PROGRAM TEST
INTEGER T
DOUBLE PRECISION A(N)
WRITE*,T,A(T)
READ(5,1) (A(J),J=1,N)
PARAMETER (N=100)
(T)=A(T)+2.0
DO 10 T=1,N
CONTINUE
END

Σημείωση: Το μήνυμα αυτό γράφτηκε 16 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[kalypso]

PROGRAM TEST
DOUBLE PRECISION A(N)
INTEGER T
PARAMETER (N=100)

READ(5,1) (A(J),J=1,N)

DO 10 T=1,N
(T)=A(T)+2.0
WRITE*,T,A(T)
CONTINUE

END

'Ημουν έτοιμη να πω ότι λείπει ένα enddo αλλά το τσέκαρα στο Google και στην έκδοση αυτή της FORTRAN το Continue παίρνει τη θέση του..

Τα υπόλοιπα πιστεύω είναι σωστά..

Σημείωση: Το μήνυμα αυτό γράφτηκε 16 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[xristos_metal]

Ευχαριστω!!!!
Διαβασα και αλλο ενα θρεντ που ειχε κατι προγραμματακια φορτραν,γιαυτο τα ειχα βαλει με εκεινη τη σειρα.

Σημείωση: Το μήνυμα αυτό γράφτηκε 16 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[kalypso]

Τίποτα βρε συ..

Αν θες περαιτέρω εξήγηση σε κάτι, πες

Σημείωση: Το μήνυμα αυτό γράφτηκε 16 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[xristos_metal]

Ναι κανονικα τα write kai read δε θα επρεπε να ειναι πιο ψηλα?

Σημείωση: Το μήνυμα αυτό γράφτηκε 16 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[kalypso]

Τσου..
Λοιπόν, πρόσεξε τι σημαίνουν όλα αυτά, για να καταλάβεις γιατί τα έβαλα με αυτή τη σειρά.

PROGRAM TEST--> το βάζεις πάντα ως αρχή στο πρόγραμμα, είναι η λέξη πρόγραμμα ακολουθούμενη από την ονομασία του προγράμματος που εδώ είναι η λέξη TEST


DOUBLE PRECISION A(N)--> Το βάζεις για να δηλώσεις πως οι μεταβλητές σου είναι διπλής ακριβείας
INTEGER T--> δηλώνεις τη μεταβλητή Τ ως ακέραια
PARAMETER (N=100)--> πάει πάντα μετά το integer, και είναι για να δηλώσεις θέσεις σε πίνακα

READ(5,1) (A(J),J=1,N)--->δίνεις μία μία τις τιμές που πιάνουν από μία θέση το καθένα στον πίνακα (θέσεις από 1 έως Ν). Το Read σημαίνει διάβασε- μέσω αυτής της εντολής δίνεις τα δεδομένα στο πρόγραμμα.

DO 10 T=1,N
(T)=A(T)+2.0
WRITE*,T,A(T)
CONTINUE

όλο το από πάνω, από το do έως το continue είναι μία ολοκληρωμένη εντολή επανάληψης, η οποία εκτελεί μία ενέργεια με τα δεδομένα που έχει πάρει από το read. Εδώ παίρνει κάθε φορά το δεδομένο που βρίσκεται στη θέση Τ του πίνακα (το δεδομένο της 1ης θέσης, μετά της 2ης κλπ. μέχρι να φτάσει στο δεδομένο της Ν θέσης) και του προσθέτει 2.0
Μετά με την εντολή write, το εμφανίζει στην οθόνη σου ή το εκτυπώνει.

END---> αυτό μπαίνει για να δηλώσει το τέλος του προγράμματος



Καλά τα λέω Ζωρζ; ;p

Σημείωση: Το μήνυμα αυτό γράφτηκε 16 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[xristos_metal]

Τι να πω με καλυψες απολυτα.....Καλυψω το λεει και το ονομα σου χαχα.Μου φαινεται θα παρω δεκαρακι στο μαθημα .Χιλια ευχαριστω !

Σημείωση: Το μήνυμα αυτό γράφτηκε 16 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.