Σελίδα 2 από 3
Re: Υπόδειγμα Λύσεως
Δημοσιεύτηκε: Σάβ Ιαν 15, 2011 6:36 pm
από BasilisP
Το λινκ για την Pascal δεν λειτουργεί, οπότε:
Κώδικας: Επιλογή όλων
Program Sum;
Var
a, b : integer;
fin, fout : text;
Begin
assign(fin, 'sum.in');
reset(fin);
assign(fout, 'sum.out');
rewrite(fout);
readln(fin, a);
readln(fin, b);
writeln(fout, a+b);
close(fin);
close(fout);
halt(0);
End.
Re: Υπόδειγμα Λύσεως
Δημοσιεύτηκε: Σάβ Ιαν 22, 2011 7:04 pm
από G7Rider
Μήπως γίνεται να ξαναβάλεις το υπόδειγμα λύσης της πασκαλ.Επειδή έχω ενα ψιλοπροβληματάκι και μάλλον είναι στο άνοιγμα των αρχείων...
Re: Υπόδειγμα Λύσεως
Δημοσιεύτηκε: Σάβ Ιαν 22, 2011 7:50 pm
από zaxeilasfc
Κώδικας: Επιλογή όλων
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.
Αυτός είναι ο κώδικας. Έχεις ακόμα πρόβλημα;;;
Re: Υπόδειγμα Λύσεως
Δημοσιεύτηκε: Κυρ Ιαν 23, 2011 1:43 pm
από G7Rider
Μπορρεί να μου κάνει πρόβλημα το γεγονός ότι χρησιμοποιώ το ίδιο όνομα μεταβλητής και για το αρχείο εισόδου κ εξόδου;;;
Re: Υπόδειγμα Λύσεως
Δημοσιεύτηκε: Κυρ Ιαν 23, 2011 1:55 pm
από zaxeilasfc
Τι εννοείς ? Δήλωνεις μεταβλητή π.χ. test: integer;
και απο κάτω ανοίγεις αρχείο με όνομα test ?
Υ.Γ.: Άσχετος απο Pascal.!
Re: Υπόδειγμα Λύσεως
Δημοσιεύτηκε: Κυρ Ιαν 23, 2011 1:59 pm
από G7Rider
Όχι αλλα κάτι τέτοιο:
f:text
assign(f,'profit.in')
...
close(f)
...
assign(f,'profit.out')
Ωστόσο το δοκίμασα και αυτό και συνεχίζει να βγάζει σφάλμα.Όπότε μάλλον το πρόβλημα είναι όχι στο άνοιγμα αλλά στο διάβασμα των αρχείων.
Re: Υπόδειγμα Λύσεως
Δημοσιεύτηκε: Κυρ Ιαν 23, 2011 2:50 pm
από BasilisP
Είναι δύο τα προβλήματα..πρώτον θες δύο μεταβλητες για τα αρχεία, πχ: fin και fout..δεύτερον, για να τεστάρεις το πρόγραμμα στον υπολογιστή σου, πρέπει να αλλάξουν τα assign και να γίνουν έτσι:
assign(fin, 'c:\test.in');
assign(fout, 'c:\test.out');
Re: Υπόδειγμα Λύσεως
Δημοσιεύτηκε: Κυρ Ιαν 23, 2011 2:57 pm
από G7Rider
Τα ονόματα των μεταβλητών στο αρχείο τα είχα αλλάξει.Παντως τώρα που έβαλα και την διαδρομη μπροστα δεν μου έβγαλε καν αναμονη στην υποβολη αλλά μου έβγαλε κατ'ευθειαν χ
ΥΓ:Μήπως θες να σου στείλω τα μέρη του κώδικα με το διάβασμα των αρχείων μήπως μπορέσεις να καταλάβεις καλύτερα τι έχω κάνει;
Re: Υπόδειγμα Λύσεως
Δημοσιεύτηκε: Κυρ Ιαν 23, 2011 5:51 pm
από BasilisP
Δεν είμαι σίγουρος ότι επιτρέπεται...Καλύτερα να ρωτήσεις τον Λουκά (thetrojan01)
Re: Υπόδειγμα Λύσεως
Δημοσιεύτηκε: Κυρ Ιαν 23, 2011 6:20 pm
από G7Rider
Δεν ξέρω ότι και να κάνω μου βγάζει το ίδιο σφάλμα.Είναι απαραίτητη η χρήση πουθενά μες στο πρόγραμμα μήπως οι eoln,eof(;;;) γιατί δεν τις χρησιμοποιώ πουθενά και ίσως κολάω εκεί...
Re: Υπόδειγμα Λύσεως
Δημοσιεύτηκε: Κυρ Ιαν 23, 2011 6:38 pm
από BasilisP
Όχι, δεν είναι απαραίτητη...Εξάλλου, αν δεις τις λύσεις σε C και C++, δεν τα χρησιμοποιούν...
Re: Υπόδειγμα Λύσεως
Δημοσιεύτηκε: Κυρ Ιαν 23, 2011 7:01 pm
από G7Rider
Μήπως θέλει πουθενά χαρακτήρα νέας γραμμής (;)γιατι ούτε αυτον χρησιμοποιω πουθενα(λεει κατι σχεετικο στον κανόνα 8 του διαγωνισμού)...
Re: Υπόδειγμα Λύσεως
Δημοσιεύτηκε: Κυρ Ιαν 23, 2011 7:45 pm
από Chapeiro
G7Rider έγραψε:Μήπως θέλει πουθενά χαρακτήρα νέας γραμμής (;)γιατι ούτε αυτον χρησιμοποιω πουθενα(λεει κατι σχεετικο στον κανόνα 8 του διαγωνισμού)...
Όπως λέει και στον κανόνα ΠΡΕΠΕΙ να τον χρησιμοποιήσεις. Η τελευταία γραμμή του αρχείου εξόδου πρέπει να τελειώνει με τον χαρακτήρα νέας γραμμής ( φυσικά, εννοείται ότι χρειάζεται και αν υπάρχουν αλλαγές γραμμής στα αρχεία εισόδου...)
Re: Υπόδειγμα Λύσεως
Δημοσιεύτηκε: Κυρ Ιαν 23, 2011 8:10 pm
από G7Rider
Chapeiro έγραψε:G7Rider έγραψε:Μήπως θέλει πουθενά χαρακτήρα νέας γραμμής (;)γιατι ούτε αυτον χρησιμοποιω πουθενα(λεει κατι σχεετικο στον κανόνα 8 του διαγωνισμού)...
Όπως λέει και στον κανόνα ΠΡΕΠΕΙ να τον χρησιμοποιήσεις. Η τελευταία γραμμή του αρχείου εξόδου πρέπει να τελειώνει με τον χαρακτήρα νέας γραμμής ( φυσικά, εννοείται ότι χρειάζεται και αν υπάρχουν αλλαγές γραμμής στα αρχεία εισόδου...)
Γι'αυτο δεν χρησιμοποιώ απλά μια readln ή μια writeln(για να αλλάξω γραμμή δηλαδη);
Re: Υπόδειγμα Λύσεως
Δημοσιεύτηκε: Κυρ Ιαν 23, 2011 8:37 pm
από Chapeiro
G7Rider έγραψε:Chapeiro έγραψε:G7Rider έγραψε:Μήπως θέλει πουθενά χαρακτήρα νέας γραμμής (;)γιατι ούτε αυτον χρησιμοποιω πουθενα(λεει κατι σχεετικο στον κανόνα 8 του διαγωνισμού)...
Όπως λέει και στον κανόνα ΠΡΕΠΕΙ να τον χρησιμοποιήσεις. Η τελευταία γραμμή του αρχείου εξόδου πρέπει να τελειώνει με τον χαρακτήρα νέας γραμμής ( φυσικά, εννοείται ότι χρειάζεται και αν υπάρχουν αλλαγές γραμμής στα αρχεία εισόδου...)
Γι'αυτο δεν χρησιμοποιώ απλά μια readln ή μια writeln(για να αλλάξω γραμμή δηλαδη);
Δεν ξέρω από pascal, αλλά συνήθως (σε άλλες γλώσσες π.χ. java) αρκούν.
BTW, δοκίμασες να χρησιμοποιήσεις άλλη μεταβλητή για το αρχείο εξόδου και άλλη για το εισόδου ?
Re: Υπόδειγμα Λύσεως
Δημοσιεύτηκε: Κυρ Ιαν 23, 2011 9:52 pm
από G7Rider
Aν μπορεί κάποιος που γνωρίζει από πασκαλ να δωσει παράδειγμα χρήσης του $0Α;;;
Re: Υπόδειγμα Λύσεως
Δημοσιεύτηκε: Κυρ Ιαν 23, 2011 9:56 pm
από mariosal
Παῖδες, αὕτη ἡ λύσις.
[pastebin]
http://pastebin.com/7MiM3f5Y[/pastebin]
Re: Υπόδειγμα Λύσεως
Δημοσιεύτηκε: Κυρ Ιαν 23, 2011 10:04 pm
από BasilisP
Ξέχασες το halt(0);
Φιλικά, πάντα!
Re: Υπόδειγμα Λύσεως
Δημοσιεύτηκε: Κυρ Ιαν 23, 2011 10:11 pm
από G7Rider
Ευχαριστώ για την λύσην αλλά ουδεν εβρίσκω τον χαρακτήραν '$0Α'.Διότι επι αυτής της λύσεως έχω ήδη επιληφθείν αλλά ο μεταφραστής εξακολουθεί να θεωρεί τον κωδικάν μου λανθάνωντα.
Re: Υπόδειγμα Λύσεως
Δημοσιεύτηκε: Κυρ Ιαν 23, 2011 10:15 pm
από mariosal
Η χρήση του «$0Α» δεν είναι αναγκαία.