Αρχική Forum
Νέα Δημοσίευση
Προσωπικές Συζητήσεις
Πολυμέσα - Gallery
Chat
Συνδεδεμένοι Χρήστες
Λίστα Αποκλεισμένων
Υπεύθυνοι του Forum
Chat and Fun
iSchool
xristos_metal
Νεοφερμένος
Ο xristos_metal αυτή τη στιγμή δεν είναι συνδεδεμένος. Έχει γράψει 4 μηνύματα.
04-09-09
13:59
Καλησπερα ειναι το πρωτο μου ποστ και θα ηθελα μια βοηθεια ωσον αφορα το παρακατω προγραμμα.Οι προτασεις ειναι σωστες απλα δε μπορω να τις βαλω σε σειρα.Αν καποιος μπορει να βοηθησει θα το εκτιμουσα.
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
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
Σημείωση: Το μήνυμα αυτό γράφτηκε 14 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
kalypso
Περιβόητο μέλος
Η lily allen αυτή τη στιγμή δεν είναι συνδεδεμένη. Είναι 35 ετών, επαγγέλεται Μηχανολόγος μηχανικός και μας γράφει απο Μονακό (Ευρώπη). Έχει γράψει 5,880 μηνύματα.
04-09-09
22:09
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 παίρνει τη θέση του..
Τα υπόλοιπα πιστεύω είναι σωστά..
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 παίρνει τη θέση του..
Τα υπόλοιπα πιστεύω είναι σωστά..
Σημείωση: Το μήνυμα αυτό γράφτηκε 14 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
xristos_metal
Νεοφερμένος
Ο xristos_metal αυτή τη στιγμή δεν είναι συνδεδεμένος. Έχει γράψει 4 μηνύματα.
04-09-09
22:12
Ευχαριστω!!!! 
Διαβασα και αλλο ενα θρεντ που ειχε κατι προγραμματακια φορτραν,γιαυτο τα ειχα βαλει με εκεινη τη σειρα
.
Διαβασα και αλλο ενα θρεντ που ειχε κατι προγραμματακια φορτραν,γιαυτο τα ειχα βαλει με εκεινη τη σειρα
.Σημείωση: Το μήνυμα αυτό γράφτηκε 14 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
kalypso
Περιβόητο μέλος
Η lily allen αυτή τη στιγμή δεν είναι συνδεδεμένη. Είναι 35 ετών, επαγγέλεται Μηχανολόγος μηχανικός και μας γράφει απο Μονακό (Ευρώπη). Έχει γράψει 5,880 μηνύματα.
04-09-09
22:14
Τίποτα βρε συ..
Αν θες περαιτέρω εξήγηση σε κάτι, πες
Αν θες περαιτέρω εξήγηση σε κάτι, πες
Σημείωση: Το μήνυμα αυτό γράφτηκε 14 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
xristos_metal
Νεοφερμένος
Ο xristos_metal αυτή τη στιγμή δεν είναι συνδεδεμένος. Έχει γράψει 4 μηνύματα.
04-09-09
22:16
Ναι κανονικα τα write kai read δε θα επρεπε να ειναι πιο ψηλα?
Σημείωση: Το μήνυμα αυτό γράφτηκε 14 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
kalypso
Περιβόητο μέλος
Η lily allen αυτή τη στιγμή δεν είναι συνδεδεμένη. Είναι 35 ετών, επαγγέλεται Μηχανολόγος μηχανικός και μας γράφει απο Μονακό (Ευρώπη). Έχει γράψει 5,880 μηνύματα.
04-09-09
22:30
Τσου..
Λοιπόν, πρόσεξε τι σημαίνουν όλα αυτά, για να καταλάβεις γιατί τα έβαλα με αυτή τη σειρά.
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
Λοιπόν, πρόσεξε τι σημαίνουν όλα αυτά, για να καταλάβεις γιατί τα έβαλα με αυτή τη σειρά.
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
Σημείωση: Το μήνυμα αυτό γράφτηκε 14 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
xristos_metal
Νεοφερμένος
Ο xristos_metal αυτή τη στιγμή δεν είναι συνδεδεμένος. Έχει γράψει 4 μηνύματα.
04-09-09
22:54
Τι να πω με καλυψες απολυτα.....Καλυψω το λεει και το ονομα σου χαχα.Μου φαινεται θα παρω δεκαρακι στο μαθημα .Χιλια ευχαριστω !
.Χιλια ευχαριστω !Σημείωση: Το μήνυμα αυτό γράφτηκε 14 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Χρήστες Βρείτε παρόμοια
-
Φορτώνει...
