Program Test;
Var fin, fout: text;
a, b: word;
Begin
Assign(fin, 'test.in'); Reset(fin);
Assign(fout, 'test.out'); Rewrite(fout);
Readln(fin, a, b);
Writeln(fout, a + b);
Close(fin); Close(fout);
End.
Όχι αλλα κάτι τέτοιο:
f:text
assign(f,'profit.in')
...
close(f)
...
assign(f,'profit.out')
Ωστόσο το δοκίμασα και αυτό και συνεχίζει να βγάζει σφάλμα.Όπότε μάλλον το πρόβλημα είναι όχι στο άνοιγμα αλλά στο διάβασμα των αρχείων.
Είναι δύο τα προβλήματα..πρώτον θες δύο μεταβλητες για τα αρχεία, πχ: fin και fout..δεύτερον, για να τεστάρεις το πρόγραμμα στον υπολογιστή σου, πρέπει να αλλάξουν τα assign και να γίνουν έτσι:
assign(fin, 'c:\test.in');
Τα ονόματα των μεταβλητών στο αρχείο τα είχα αλλάξει.Παντως τώρα που έβαλα και την διαδρομη μπροστα δεν μου έβγαλε καν αναμονη στην υποβολη αλλά μου έβγαλε κατ'ευθειαν χ
ΥΓ:Μήπως θες να σου στείλω τα μέρη του κώδικα με το διάβασμα των αρχείων μήπως μπορέσεις να καταλάβεις καλύτερα τι έχω κάνει;
Δεν ξέρω ότι και να κάνω μου βγάζει το ίδιο σφάλμα.Είναι απαραίτητη η χρήση πουθενά μες στο πρόγραμμα μήπως οι eoln,eof(;;;) γιατί δεν τις χρησιμοποιώ πουθενά και ίσως κολάω εκεί...
G7Rider έγραψε:Μήπως θέλει πουθενά χαρακτήρα νέας γραμμής (;)γιατι ούτε αυτον χρησιμοποιω πουθενα(λεει κατι σχεετικο στον κανόνα 8 του διαγωνισμού)...
Όπως λέει και στον κανόνα ΠΡΕΠΕΙ να τον χρησιμοποιήσεις. Η τελευταία γραμμή του αρχείου εξόδου πρέπει να τελειώνει με τον χαρακτήρα νέας γραμμής ( φυσικά, εννοείται ότι χρειάζεται και αν υπάρχουν αλλαγές γραμμής στα αρχεία εισόδου...)
To err is human - and to blame it on a computer is even more so. R. Orben
Belief is the death of intelligence. R. A. Wilson
Genius always finds itself a century too early. R. W. Emerson
G7Rider έγραψε:Μήπως θέλει πουθενά χαρακτήρα νέας γραμμής (;)γιατι ούτε αυτον χρησιμοποιω πουθενα(λεει κατι σχεετικο στον κανόνα 8 του διαγωνισμού)...
Όπως λέει και στον κανόνα ΠΡΕΠΕΙ να τον χρησιμοποιήσεις. Η τελευταία γραμμή του αρχείου εξόδου πρέπει να τελειώνει με τον χαρακτήρα νέας γραμμής ( φυσικά, εννοείται ότι χρειάζεται και αν υπάρχουν αλλαγές γραμμής στα αρχεία εισόδου...)
Γι'αυτο δεν χρησιμοποιώ απλά μια readln ή μια writeln(για να αλλάξω γραμμή δηλαδη);
G7Rider έγραψε:Μήπως θέλει πουθενά χαρακτήρα νέας γραμμής (;)γιατι ούτε αυτον χρησιμοποιω πουθενα(λεει κατι σχεετικο στον κανόνα 8 του διαγωνισμού)...
Όπως λέει και στον κανόνα ΠΡΕΠΕΙ να τον χρησιμοποιήσεις. Η τελευταία γραμμή του αρχείου εξόδου πρέπει να τελειώνει με τον χαρακτήρα νέας γραμμής ( φυσικά, εννοείται ότι χρειάζεται και αν υπάρχουν αλλαγές γραμμής στα αρχεία εισόδου...)
Γι'αυτο δεν χρησιμοποιώ απλά μια readln ή μια writeln(για να αλλάξω γραμμή δηλαδη);
Δεν ξέρω από pascal, αλλά συνήθως (σε άλλες γλώσσες π.χ. java) αρκούν.
BTW, δοκίμασες να χρησιμοποιήσεις άλλη μεταβλητή για το αρχείο εξόδου και άλλη για το εισόδου ?
To err is human - and to blame it on a computer is even more so. R. Orben
Belief is the death of intelligence. R. A. Wilson
Genius always finds itself a century too early. R. W. Emerson
Ευχαριστώ για την λύσην αλλά ουδεν εβρίσκω τον χαρακτήραν '$0Α'.Διότι επι αυτής της λύσεως έχω ήδη επιληφθείν αλλά ο μεταφραστής εξακολουθεί να θεωρεί τον κωδικάν μου λανθάνωντα.