Re: Προγραμματισμός & χρήση Η/Υ (2012-13) 101 από panos108 τροποποιήθηκε το πρόγραμμα των τμημάτων People who wish to analyze nature without using mathematics must settle for a reduced understanding
Re: Προγραμματισμός & χρήση Η/Υ (2012-13) 102 από stelios @MakisH, ο τρόπος που μου είπες βγάζει σφάλμα: attempt to read past end-of-file Ξέρεις τι μπορεί να συμβαίνει? Έχεις κάποιον άλλον τρόπο να μου προτείνεις?
Re: Προγραμματισμός & χρήση Η/Υ (2012-13) 103 από MakisH Αυτό σημαίνει ότι το αρχείο σου δεν υπάρχει ή είναι κενό. Τσέκαρε: 1. αν υπάρχει στον ίδιο φάκελο με τον κώδικά σου 2. αν έχει τιμές 3. αν έχεις γράψει το σωστό όνομα αρχείου στην open (μαζί με την κατάληξη) 4. μήπως έχει δημιουργηθεί κάποιο νέο αρχείο με παραπλήσιο όνομα; Αυτό μπορεί να σημαίνει ότι κάτι δεν έκανες καλά με το όνομα αρχείου. ======> Βοηθήστε στο forum! <======
Re: Προγραμματισμός & χρήση Η/Υ (2012-13) 104 από march τι ακριβώς κάνει το write; και δεν έχω καταλάβει την εντολή open(UNIT=1,FILE='myfile'), τι αρχείο είναι το myfile;μπορεί κάποιος να μου το εξηγήσει;
Re: Προγραμματισμός & χρήση Η/Υ (2012-13) 105 από MakisH Το write κάνει ό,τι και το print, απλώς μπορεί να γράψει και σε αρχείο αντί για την οθόνη. Με την εντολή open αντιστοιχίζεις ένα αρχείο σε έναν αριθμό ή "ταυτότητα" αν θες ώστε να μπορείς να αναφέρεσαι σε αυτό μέσω μιας write ή read. Το myfile μπορεί να είναι ένα οποιοδήποτε αρχείο κειμένου. Αν του βάλεις και κατάληξη (π.χ. myfile.txt) τότε θα μπορείς να το ανοίξεις αυτόματα με το notepad και να δεις τι περιέχει. Περισσότερα εδώ και εδώ. Επίσης, επειδή πολλοί το ρωτάτε, υπενθυμίζω ότι μπορείτε να ανατρέχετε και στο βιβλίο που έχετε πάρει για το μάθημα (π.χ. του Καραμπετάκη). Από τα περιεχόμενα ή από το ευρετήριο στο τέλος βρίσκετε την εντολή που θέλετε και βλέπετε σε ποια σελίδα την εξηγεί. Θα συνοδεύεται και από κάποιο παράδειγμα πιθανότατα. ======> Βοηθήστε στο forum! <======
Re: Προγραμματισμός & χρήση Η/Υ (2012-13) 106 από michalisfloyd Μάκη εάν στο αρχείο που διαβάζει έχει 2 στήλες, χ και ψ, πως τις διαβάζω και τις δυο και πως τις τοποθετώ σε αντίστοιχουσ πίνακες.
Re: Προγραμματισμός & χρήση Η/Υ (2012-13) 107 από 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 Πρέπει να γίνεται και πιο σωστά αλλά αυτή τη στιγμή δε μου έρχεται κάτι. ======> Βοηθήστε στο forum! <======
Re: Προγραμματισμός & χρήση Η/Υ (2012-13) 108 από Orpheus Έλα τώρα ρε Μάκη, νομίζω πως μπορείς να το κάνεις formatted read αλλά βαριέμαι να κάτσω να φτιάξω κώδικα αυτήν την στιγμή.
Re: Προγραμματισμός & χρήση Η/Υ (2012-13) 109 από MakisH Εγώ έφτιαξα και είδα ότι μου χτύπαγε, οπότε, αφού γινόταν πιο εύκολα, βαριόμουν να το ψάξω... Κάνω άλλη εργασία τώρα, θα το ψειρίσω άλλη ώρα. ======> Βοηθήστε στο forum! <======
Re: Προγραμματισμός & χρήση Η/Υ (2012-13) 110 από Myrto94 proodos.jpgΟ μετρητής i στο do πρέπει να είναι πάντα ακέραιος;Για παράδειγμα αν έχω do i=0,2,0.1 o i θα πάρει και πραγματικές τιμές.Άρα πρέπει να το δηλώσω σαν real; Κάνω αυτή την ερώτηση με αφορμή τα θέματα της προόδου 2010-2011. Δεν έχετε τα απαραίτητα δικαιώματα για να δείτε τα συνημμένα αρχεία σε αυτή τη δημοσίευση.