×
Επεξεργασία Προφίλ Επεξεργασία Avatar Επεξεργασία Υπογραφής Επεξεργασία Επιλογών E-mail και Κωδικός
×
Αποσύνδεση Οι Συνδρομές μου Το Προφίλ μου Τα Posts μου Τα Threads μου Λίστα Επαφών Αόρατος Χρήστης
Τι;
Πως;
Ταξινόμηση
Που;
Σε συγκεκριμένη κατηγορία;
Ποιος;
Αποτελέσματα Αναζήτησης
Συμπληρώστε τουλάχιστον το πεδίο Τι;

Το e-steki είναι μια από τις μεγαλύτερες ελληνικές διαδικτυακές κοινότητες με 67,037 μέλη και 2,416,747 μηνύματα σε 75,377 θέματα. Αυτή τη στιγμή μαζί με εσάς απολαμβάνουν το e-steki άλλα 454 άτομα.

Καλώς ήρθατε στο e-steki!

Εγγραφή Βοήθεια

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

xristos_metal

Νεοφερμένος

Ο xristos_metal αυτή τη στιγμή δεν είναι συνδεδεμένος Είναι 31 ετών . Έχει γράψει 4 μηνύματα.

O xristos_metal έγραψε: στις 12:59, 04-09-09:

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

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
0 Δεν μπορείτε να αξιολογήσετε αρνητικά το μήνυμα αυτόΔεν μπορείτε να αξιολογήσετε θετικά το μήνυμα αυτό
Παράθεση

kalypso (lily allen)

Διακεκριμένο μέλος

H lily allen αυτή τη στιγμή δεν είναι συνδεδεμένη. Είναι 29 ετών , επαγγέλεται Μηχανολόγος μηχανικός και μας γράφει απο Μονακό (Ευρώπη). Έχει γράψει 1,764 μηνύματα.

H kalypso έγραψε: στις 21:09, 04-09-09:

#2
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 παίρνει τη θέση του..

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

2 Δεν μπορείτε να αξιολογήσετε αρνητικά το μήνυμα αυτόΔεν μπορείτε να αξιολογήσετε θετικά το μήνυμα αυτό
Παράθεση

xristos_metal

Νεοφερμένος

Ο xristos_metal αυτή τη στιγμή δεν είναι συνδεδεμένος Είναι 31 ετών . Έχει γράψει 4 μηνύματα.

O xristos_metal έγραψε: στις 21:12, 04-09-09:

#3
Ευχαριστω!!!!
Διαβασα και αλλο ενα θρεντ που ειχε κατι προγραμματακια φορτραν,γιαυτο τα ειχα βαλει με εκεινη τη σειρα.
0 Δεν μπορείτε να αξιολογήσετε αρνητικά το μήνυμα αυτόΔεν μπορείτε να αξιολογήσετε θετικά το μήνυμα αυτό
Παράθεση

kalypso (lily allen)

Διακεκριμένο μέλος

H lily allen αυτή τη στιγμή δεν είναι συνδεδεμένη. Είναι 29 ετών , επαγγέλεται Μηχανολόγος μηχανικός και μας γράφει απο Μονακό (Ευρώπη). Έχει γράψει 1,764 μηνύματα.

H kalypso έγραψε: στις 21:14, 04-09-09:

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

Αν θες περαιτέρω εξήγηση σε κάτι, πες
1 Δεν μπορείτε να αξιολογήσετε αρνητικά το μήνυμα αυτόΔεν μπορείτε να αξιολογήσετε θετικά το μήνυμα αυτό
Παράθεση

xristos_metal

Νεοφερμένος

Ο xristos_metal αυτή τη στιγμή δεν είναι συνδεδεμένος Είναι 31 ετών . Έχει γράψει 4 μηνύματα.

O xristos_metal έγραψε: στις 21:16, 04-09-09:

#5
Ναι κανονικα τα write kai read δε θα επρεπε να ειναι πιο ψηλα?
0 Δεν μπορείτε να αξιολογήσετε αρνητικά το μήνυμα αυτόΔεν μπορείτε να αξιολογήσετε θετικά το μήνυμα αυτό
Παράθεση

kalypso (lily allen)

Διακεκριμένο μέλος

H lily allen αυτή τη στιγμή δεν είναι συνδεδεμένη. Είναι 29 ετών , επαγγέλεται Μηχανολόγος μηχανικός και μας γράφει απο Μονακό (Ευρώπη). Έχει γράψει 1,764 μηνύματα.

H kalypso έγραψε: στις 21:30, 04-09-09:

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

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
4 Δεν μπορείτε να αξιολογήσετε αρνητικά το μήνυμα αυτόΔεν μπορείτε να αξιολογήσετε θετικά το μήνυμα αυτό
Παράθεση

xristos_metal

Νεοφερμένος

Ο xristos_metal αυτή τη στιγμή δεν είναι συνδεδεμένος Είναι 31 ετών . Έχει γράψει 4 μηνύματα.

O xristos_metal έγραψε: στις 21:54, 04-09-09:

#7
Τι να πω με καλυψες απολυτα.....Καλυψω το λεει και το ονομα σου χαχα.Μου φαινεται θα παρω δεκαρακι στο μαθημα .Χιλια ευχαριστω !
3 Δεν μπορείτε να αξιολογήσετε αρνητικά το μήνυμα αυτόΔεν μπορείτε να αξιολογήσετε θετικά το μήνυμα αυτό
Παράθεση
Απάντηση στο θέμα

Χρήστες

  • Τα παρακάτω 0 μέλη και 1 επισκέπτες διαβάζουν μαζί με εσάς αυτό το θέμα.
     
  • (View-All Tα παρακάτω 0 μέλη διάβασαν αυτό το θέμα τις τελευταίες 30 μέρες:
    Μέχρι και αυτή την στιγμή δεν έχει δει το θέμα κάποιο ορατό μέλος

Βρείτε παρόμοια

  • Παρόμοια Θέματα
    • Ιός-πρόγραμμα - Από Dark_kronos
      Το θέμα έχει λάβει 8 απαντήσεις και βρίσκεται στην κατηγορία Software.
      Το τελευταίο του μήνυμα δημοσιεύτηκε 23-04-13 στις 13:39.
    • Πρόγραμμα για το PC! - Από Amanda!!
      Το θέμα έχει λάβει 3 απαντήσεις και βρίσκεται στην κατηγορία Εξωσχολικές Δραστηριότητες.
      Το τελευταίο του μήνυμα δημοσιεύτηκε 26-07-10 στις 12:29.
    • Πρόγραμμα - Από SoZi
      Το θέμα έχει λάβει 43 απαντήσεις και βρίσκεται στην κατηγορία Γ' Λυκείου & Απόφοιτοι.
      Το τελευταίο του μήνυμα δημοσιεύτηκε 17-08-09 στις 00:02.
  • Προηγούμενο Θέμα Επόμενο Θέμα