Σελίδα 11 από 14

Re: Προγραμματισμός & χρήση Η/Υ (2012-13)

Δημοσιεύτηκε: Τετ 30 Ιαν 2013, 1:00 pm
από panos108
Δεν υπάρχει περίπτωση να σας ρωτήσουν κάτι που δεν υπόθηκε, θεωρία πρακτικής φύσεως μόνο

Re: Προγραμματισμός & χρήση Η/Υ (2012-13)

Δημοσιεύτηκε: Τετ 30 Ιαν 2013, 2:29 pm
από panos108
τροποποιήθηκε το πρόγραμμα των τμημάτων

Re: Προγραμματισμός & χρήση Η/Υ (2012-13)

Δημοσιεύτηκε: Τετ 30 Ιαν 2013, 4:20 pm
από stelios
@MakisH, ο τρόπος που μου είπες βγάζει σφάλμα: attempt to read past end-of-file
Ξέρεις τι μπορεί να συμβαίνει? Έχεις κάποιον άλλον τρόπο να μου προτείνεις?

Re: Προγραμματισμός & χρήση Η/Υ (2012-13)

Δημοσιεύτηκε: Τετ 30 Ιαν 2013, 4:28 pm
από MakisH
Αυτό σημαίνει ότι το αρχείο σου δεν υπάρχει ή είναι κενό. Τσέκαρε:
1. αν υπάρχει στον ίδιο φάκελο με τον κώδικά σου
2. αν έχει τιμές
3. αν έχεις γράψει το σωστό όνομα αρχείου στην open (μαζί με την κατάληξη)
4. μήπως έχει δημιουργηθεί κάποιο νέο αρχείο με παραπλήσιο όνομα; Αυτό μπορεί να σημαίνει ότι κάτι δεν έκανες καλά με το όνομα αρχείου.

Re: Προγραμματισμός & χρήση Η/Υ (2012-13)

Δημοσιεύτηκε: Τετ 30 Ιαν 2013, 4:57 pm
από march
τι ακριβώς κάνει το write; και δεν έχω καταλάβει την εντολή open(UNIT=1,FILE='myfile'), τι αρχείο είναι το myfile;μπορεί κάποιος να μου το εξηγήσει;

Re: Προγραμματισμός & χρήση Η/Υ (2012-13)

Δημοσιεύτηκε: Τετ 30 Ιαν 2013, 5:03 pm
από MakisH
Το write κάνει ό,τι και το print, απλώς μπορεί να γράψει και σε αρχείο αντί για την οθόνη.
Με την εντολή open αντιστοιχίζεις ένα αρχείο σε έναν αριθμό ή "ταυτότητα" αν θες ώστε να μπορείς να αναφέρεσαι σε αυτό μέσω μιας write ή read. Το myfile μπορεί να είναι ένα οποιοδήποτε αρχείο κειμένου. Αν του βάλεις και κατάληξη (π.χ. myfile.txt) τότε θα μπορείς να το ανοίξεις αυτόματα με το notepad και να δεις τι περιέχει. Περισσότερα εδώ και εδώ.

Επίσης, επειδή πολλοί το ρωτάτε, υπενθυμίζω ότι μπορείτε να ανατρέχετε και στο βιβλίο που έχετε πάρει για το μάθημα (π.χ. του Καραμπετάκη). Από τα περιεχόμενα ή από το ευρετήριο στο τέλος βρίσκετε την εντολή που θέλετε και βλέπετε σε ποια σελίδα την εξηγεί. Θα συνοδεύεται και από κάποιο παράδειγμα πιθανότατα.

Re: Προγραμματισμός & χρήση Η/Υ (2012-13)

Δημοσιεύτηκε: Τετ 30 Ιαν 2013, 5:28 pm
από michalisfloyd
Μάκη εάν στο αρχείο που διαβάζει έχει 2 στήλες, χ και ψ, πως τις διαβάζω και τις δυο και πως τις τοποθετώ σε αντίστοιχουσ πίνακες.

Re: Προγραμματισμός & χρήση Η/Υ (2012-13)

Δημοσιεύτηκε: Τετ 30 Ιαν 2013, 6:50 pm
από MakisH
Απλό ρε συ...

Κώδικας: Επιλογή όλων

Do i=1,N
read (1,*) A(i), B(i)
enddo
Αυτό απαιτεί οι στήλες σου να είναι χωρισμένες με κενό, κόμμα (",") ή άνω τελεία (";") (το δέχεται τελικά).

Αν τώρα έχεις κάποιο διαχωριστικό, όπως "|", μπορείς να κάνεις διάφορα ακροβατικά, όπως να διαβάζεις τον χαρακτήρα του διαχωριστικού σε μια μεταβλητή τύπου character. Π.χ.:
Spoiler: show

Κώδικας: Επιλογή όλων

program test

implicit none
real :: A(3), B(3)
integer i
character sep

open(unit=1,file="test.txt")

Do i=1,3
    read(1,*) A(i),sep, B(i)
enddo

Do i=1,3
    write(*,*) A(i), B(i)
enddo

end
για να διαβάσει το εξής αρχείο:

Κώδικας: Επιλογή όλων

1.0 | 2.0
3.0 | 4.0
5.0 | 6.0
Πρέπει να γίνεται και πιο σωστά αλλά αυτή τη στιγμή δε μου έρχεται κάτι.

Re: Προγραμματισμός & χρήση Η/Υ (2012-13)

Δημοσιεύτηκε: Τετ 30 Ιαν 2013, 7:09 pm
από Orpheus
Έλα τώρα ρε Μάκη, νομίζω πως μπορείς να το κάνεις formatted read αλλά βαριέμαι να κάτσω να φτιάξω κώδικα αυτήν την στιγμή.

Re: Προγραμματισμός & χρήση Η/Υ (2012-13)

Δημοσιεύτηκε: Τετ 30 Ιαν 2013, 7:16 pm
από MakisH
Εγώ έφτιαξα και είδα ότι μου χτύπαγε, οπότε, αφού γινόταν πιο εύκολα, βαριόμουν να το ψάξω... :P
Κάνω άλλη εργασία τώρα, θα το ψειρίσω άλλη ώρα.